From b87b1c965d1cfc87fe3123c6062a0e142001753c Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 3 Apr 2014 09:35:54 -0500 Subject: [svn-r24951] Changed ordering of initiation of variable to remove warnings using sun compilers. Tested: emu --- fortran/test/fortranlib_test.f90 | 4 ++-- 1 file 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 -- cgit v0.12