nf03_test.F (netcdf-fortran-4.4.4) | : | nf03_test.F (netcdf-fortran-4.4.5) | ||
---|---|---|---|---|
skipping to change at line 27 | skipping to change at line 27 | |||
write(*, 1) name | write(*, 1) name | |||
1 format(' *** testing ', a, ' ... ') | 1 format(' *** testing ', a, ' ... ') | |||
nfails = 0 | nfails = 0 | |||
call func() | call func() | |||
nfailsTotal = nfailsTotal + nfails | nfailsTotal = nfailsTotal + nfails | |||
if ( nfails .ne. 0) then | if ( nfails .ne. 0) then | |||
print *, ' ' | print *, ' ' | |||
print *, ' ### ', nfails, ' FAILURES TESTING ', name, | print *, ' ### ', nfails, ' FAILURES TESTING ', name, | |||
+ '! ###' | + '! ###' | |||
C continue the remaining tests, uncomment below to stop now | ||||
C stop 2 | ||||
end if | end if | |||
end | end | |||
program nf_test | program nf_test | |||
use tests | use tests | |||
implicit none | implicit none | |||
integer status | integer status | |||
external test_nf_strerror | external test_nf_strerror | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 2 lines changed or added |