tests: allocate instead of stack to avoid test failure

geospace-code · Jun 15, 2020 · 12e3e57 · 12e3e57
1 parent 8b1a241
commit 12e3e57
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git 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
@@ -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
+end program