diff options
Diffstat (limited to 'fortran/test/fortranlib_test_1_8.f90')
-rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index 4ff3e0f..49835b0 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -26,10 +26,14 @@ PROGRAM fortranlibtest INTEGER :: error INTEGER :: ret_total_error INTEGER :: majnum, minnum, relnum - LOGICAL :: cleanup = .TRUE. -! LOGICAL :: cleanup = .FALSE. + LOGICAL :: cleanup, status CALL h5open_f(error) + + cleanup = .TRUE. + CALL h5_env_nocleanup_f(status) + IF(status) cleanup=.FALSE. + WRITE(*,*) ' ========================== ' WRITE(*,*) ' FORTRAN 1.8 tests ' WRITE(*,*) ' ========================== ' |