diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-03 14:35:54 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-03 14:35:54 (GMT) |
| commit | b87b1c965d1cfc87fe3123c6062a0e142001753c (patch) | |
| tree | 9b681fda9806a3e834f472603d6f824156b5d5ac /fortran/test | |
| parent | 6739a7f7acda4d0d38900b14c12cca034b947651 (diff) | |
| download | hdf5-b87b1c965d1cfc87fe3123c6062a0e142001753c.zip hdf5-b87b1c965d1cfc87fe3123c6062a0e142001753c.tar.gz hdf5-b87b1c965d1cfc87fe3123c6062a0e142001753c.tar.bz2 | |
[svn-r24951] Changed ordering of initiation of variable to remove warnings using sun compilers.
Tested: emu
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 6268d15..ff9f899 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -72,10 +72,10 @@ PROGRAM fortranlibtest CALL reopentest(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Reopen test', total_error) + ret_total_error = 0 !DEC$ if defined(H5_VMS) GOTO 8 !DEC$ else - ret_total_error = 0 CALL file_close(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' File open/close test', total_error) !DEC$ endif @@ -179,10 +179,10 @@ PROGRAM fortranlibtest CALL external_test(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' External dataset test', total_error) + ret_total_error = 0 !DEC$ if defined(H5_VMS) GOTO 9 !DEC$ else - ret_total_error = 0 CALL multi_file_test(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Multi file driver test', total_error) !DEC$ endif |