diff options
Diffstat (limited to 'fortran/test/tH5P.f90')
| -rw-r--r-- | fortran/test/tH5P.f90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90 index 7f655de..76edd61 100644 --- a/fortran/test/tH5P.f90 +++ b/fortran/test/tH5P.f90 @@ -244,6 +244,12 @@ CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = fapl) CALL check("h5fcreate_f", error, total_error) + if(error .ne. 0) then + write(*,*) "Cannot create file using multi-file driver... Exiting...." + total_error = 1 + call h5pclose_f(fapl, error) + return + endif ! |