summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorDana Robinson <43805+derobins@users.noreply.github.com>2022-08-22 15:28:48 (GMT)
committerGitHub <noreply@github.com>2022-08-22 15:28:48 (GMT)
commit801edb4f521763febbec876f786aeda7240a7893 (patch)
treecb44d61ad7620367eff3c6c15342d7d4170d8bee /fortran/test
parentec3737ab696e76574edee53cd137bf73de69aa2c (diff)
downloadhdf5-801edb4f521763febbec876f786aeda7240a7893.zip
hdf5-801edb4f521763febbec876f786aeda7240a7893.tar.gz
hdf5-801edb4f521763febbec876f786aeda7240a7893.tar.bz2
Quiets Fortran warnings about large arrays (#2053)
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5Z.F906
1 files changed, 4 insertions, 2 deletions
diff --git a/fortran/test/tH5Z.F90 b/fortran/test/tH5Z.F90
index 799067a..7f81383 100644
--- a/fortran/test/tH5Z.F90
+++ b/fortran/test/tH5Z.F90
@@ -192,8 +192,8 @@ CONTAINS
INTEGER(HSIZE_T), DIMENSION(2) :: chunk_dims = (/NN, MM/)
INTEGER :: rank = 2 ! Dataset rank
- INTEGER, DIMENSION(N,M) :: dset_data ! Data buffers
- INTEGER, DIMENSION(:,:), ALLOCATABLE :: data_out ! Data buffers
+ INTEGER, DIMENSION(:,:), ALLOCATABLE :: dset_data ! Data buffers
+ INTEGER, DIMENSION(:,:), ALLOCATABLE :: data_out ! Data buffers
INTEGER :: error ! Error flag
INTEGER :: num_errors = 0 ! Number of data errors
@@ -252,6 +252,7 @@ CONTAINS
!
! Initialize the dset_data array.
!
+ ALLOCATE(dset_data(1:N,1:M))
do i = 1, N
do j = 1, M
dset_data(i,j) = (i-1)*6 + j;
@@ -387,6 +388,7 @@ CONTAINS
100 IF (num_errors .GT. 0) THEN
total_error=total_error + 1
END IF
+ DEALLOCATE(dset_data)
DEALLOCATE(data_out)
!