"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "nf_test/test_read.F" between
netcdf-fortran-4.4.4.tar.gz and netcdf-fortran-4.4.5.tar.gz

About: NetCDF (network Common Data Form) is a set of software libraries and machine-independent data formats that support the creation, access, and sharing of array-oriented scientific data (Fortran library).

test_read.F  (netcdf-fortran-4.4.4)	:	test_read.F  (netcdf-fortran-4.4.5)
skipping to change at line 83		skipping to change at line 83
data msg(23)		data msg(23)
+ / 'NetCDF: nc_rec op when there are no record vars' /		+ / 'NetCDF: nc_rec op when there are no record vars' /
data msg(24)		data msg(24)
+ /'NetCDF: Attempt to convert between text & numbers'/		+ /'NetCDF: Attempt to convert between text & numbers'/
data msg(25) / 'NetCDF: Start+count exceeds dimension bound' /		data msg(25) / 'NetCDF: Start+count exceeds dimension bound' /
data msg(26) / 'NetCDF: Illegal stride' /		data msg(26) / 'NetCDF: Illegal stride' /
data msg(27) / 'NetCDF: Name contains illegal characters' /		data msg(27) / 'NetCDF: Name contains illegal characters' /
C /* Try on a bad error status */		C /* Try on a bad error status */
message = nf_strerror(-666)!/* should fail */		message = nf_strerror(-666)!/* should fail */
if (message .ne. 'Unknown Error')		if (message(1:13) .ne. 'Unknown Error')
+ call errorc('nf_strerror on bad error status returned: ',		+ call errorc('nf_strerror on bad error status returned: ',
+ message)		+ message)
C /* Try on each legitimate error status */		C /* Try on each legitimate error status */
do 1, i=1, number_of_messages		do 1, i=1, number_of_messages
message = nf_strerror(status(i))		message = nf_strerror(status(i))
if (message .ne. msg(i))		if (message .ne. msg(i))
+ call error('nf_strerror() should return "' // msg(i) //		+ call error('nf_strerror() should return "' // msg(i) //
+ '"')		+ '"')
1 continue		1 continue
skipping to change at line 481		skipping to change at line 481
err = nf_inq_format(BAD_ID, nformat)		err = nf_inq_format(BAD_ID, nformat)
if (err .ne. NF_EBADID)		if (err .ne. NF_EBADID)
+ call errore('bad ncid: ', err)		+ call errore('bad ncid: ', err)
err = nf_open(testfile, NF_NOWRITE, ncid)		err = nf_open(testfile, NF_NOWRITE, ncid)
if (err .ne. 0)		if (err .ne. 0)
+ call errore('nf_open: ', err)		+ call errore('nf_open: ', err)
err = nf_inq_format(ncid, nformat)		err = nf_inq_format(ncid, nformat)
if (err .ne. 0) then		if (err .ne. 0) then
call errore('nf_inq_format: ', err)		call errore('nf_inq_format: ', err)
else if (nformat .ne. nf_format_classic .and.		else if (nformat .ne. nf_format_classic .and.
		#ifdef ENABLE_CDF5
		+ nformat .ne. nf_format_cdf5 .and.
		#endif
		#ifdef USE_NETCDF4
		+ nformat .ne. nf_format_netcdf4 .and.
		#endif
+ nformat .ne. nf_format_64bit) then		+ nformat .ne. nf_format_64bit) then
call errori('nf_inq_format: wrong format number returned, ',		call errori('nf_inq_format: wrong format number returned, ',
+ nformat)		+ nformat)
end if		end if
err = nf_close(ncid)		err = nf_close(ncid)
if (err .ne. 0)		if (err .ne. 0)
+ call errore('nf_close: ', err)		+ call errore('nf_close: ', err)
end		end
subroutine test_nf_inq_dimid()		subroutine test_nf_inq_dimid()
End of changes. 2 change blocks.
1 lines changed or deleted		7 lines changed or added

---