diff options
| -rw-r--r-- | fortran/test/fortranlib_test_F03.f90 | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/fortran/test/fortranlib_test_F03.f90 b/fortran/test/fortranlib_test_F03.f90 index 1e58616..1b69f7f 100644 --- a/fortran/test/fortranlib_test_F03.f90 +++ b/fortran/test/fortranlib_test_F03.f90 @@ -121,14 +121,6 @@ PROGRAM fortranlibtest_F03 CALL write_test_status(ret_total_error, & ' Testing filling functions', & total_error) -!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 -8 CONTINUE ret_total_error = 0 CALL test_h5kind_to_type(total_error) |