diff options
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/tH5Z.F90 | 6 |
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) ! |