write: check matching shape for existing disk variable

Author: scivision

src/tests/test_array.f90

@@ -47,6 +47,10 @@ subroutine test_write_array(path)
 if(ierr/=0) error stop
 call h5f%write('/nan', nan, ierr)
 if(ierr/=0) error stop
+!> test writing wrong size
+call h5f%write('/int32-1d', [-1], ierr)
+if(ierr==0) error stop 'did not error for write array shape mismatch'
+
 call h5f%finalize(ierr)
 if(ierr/=0) error stop
 

src/write.f90

@@ -46,6 +46,8 @@
 if (check(ierr,  'ERROR: setup_write: ' // dname // ' check exist ' // self%filename)) return
 
 if(exists) then
+  call hdf_shape_check(self, dname, dims, ierr)
+  if (ierr/=0) return
   !> open dataset
   call h5dopen_f(self%lid, dname, did, ierr)
   if (check(ierr, 'ERROR: setup_write: open ' // dname // ' ' // self%filename)) return