write: check matching shape for existing disk variable

geospace-code · Feb 24, 2020 · 4caf8e5 · 4caf8e5
1 parent 78228c4
commit 4caf8e5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/tests/test_array.f90 b/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
 

diff --git a/src/write.f90 b/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