diff --git a/meson.build b/meson.build index 18f01935..6d9f8719 100644 --- a/meson.build +++ b/meson.build @@ -1,6 +1,6 @@ project('h5fortran', 'fortran', meson_version : '>=0.52.0', - version : '2.9.2', + version : '2.9.3', default_options : ['default_library=static', 'buildtype=release', 'warning_level=3']) subdir('meson') diff --git a/src/tests/test_deflate.f90 b/src/tests/test_deflate.f90 index 57d1ccc5..1f53191a 100644 --- a/src/tests/test_deflate.f90 +++ b/src/tests/test_deflate.f90 @@ -24,17 +24,19 @@ program test_deflate contains -recursive subroutine test_hdf5_deflate(path) +subroutine test_hdf5_deflate(path) type(hdf5_file) :: h5f character(*), intent(in) :: path integer(hsize_t), parameter :: N=1000 integer(hsize_t) :: crat, chunks(3) integer :: fsize, layout -integer :: ibig2(N,N), ibig3(N,N,4) -real(real32) :: big2(N,N), big3(N,N,4) +integer, allocatable :: ibig2(:,:), ibig3(:,:,:) +real(real32), allocatable :: big2(:,:), big3(:,:,:) character(:), allocatable :: fn +allocate(ibig2(N,N), ibig3(N,N,4), big2(N,N), big3(N,N,4)) + ibig2 = 0 ibig3 = 0 big2 = 0 @@ -115,4 +117,4 @@ recursive subroutine test_hdf5_deflate(path) end subroutine test_hdf5_deflate -end program \ No newline at end of file +end program