summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5P.f906
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
!