test_fail_read_size_mismatch.f90 Source File


This file depends on

sourcefile~~test_fail_read_size_mismatch.f90~~EfferentGraph sourcefile~test_fail_read_size_mismatch.f90 test_fail_read_size_mismatch.f90 sourcefile~interface.f90 interface.f90 sourcefile~test_fail_read_size_mismatch.f90->sourcefile~interface.f90

Contents


Source Code

program fail_slice_mismatch
!> test writing wrong size
use h5fortran, only : hdf5_file
implicit none (type, external)
type(hdf5_file) :: h

call h%open('mismatch.h5', status='scratch', verbose=.False.)
call h%write('/int32-1d', [-1,1])
call h%write('/int32-1d', [-1])
call h%close()

end program