bugfix: handle unknown with not existing file

Author: scivision

src/hdf5_interface.f90

@@ -322,7 +322,12 @@ subroutine hdf_initialize(self,filename,ierr, status,action,comp_lvl,chunk_size,
         endif
         call h5fopen_f(filename,H5F_ACC_RDONLY_F,self%lid,ierr)
       case('write','readwrite','w','rw', 'r+', 'append', 'a')
-        call h5fopen_f(filename,H5F_ACC_RDWR_F,self%lid,ierr)
+        inquire(file=filename, exist=exists)
+        if(lstatus == 'unknown' .and. .not.exists) then
+          call h5fopen_f(filename, H5F_ACC_TRUNC_F, self%lid,ierr)
+        else
+          call h5fopen_f(filename, H5F_ACC_RDWR_F, self%lid,ierr)
+        endif
         if (check(ierr, 'ERROR: ' // filename // ' could not be opened')) return
       case default
         write(stderr,*) 'Unsupported action -> ' // laction

src/tests/test_hdf5_ifc.f90

@@ -215,9 +215,9 @@ subroutine test_write_attributes(path)
 type(hdf5_file) :: h5f
 character(*), intent(in) :: path
 
-call h5f%initialize(path//'/test_deflate.h5', ierr)
+call h5f%initialize(path//'/test.h5', ierr)
 
-call h5f%writeattr('/little/','note','this is just a little number', ierr)
+call h5f%writeattr('/nan','note','this is just a little number', ierr)
 if (ierr /= 0) error stop 'write attribute string'
 
 call h5f%finalize(ierr)