diff options
author | Larry Knox <lrknox@hdfgroup.org> | 2021-08-31 21:24:59 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-08-31 21:24:59 (GMT) |
commit | 3abbb9c5f41bca50ae25ca9e0c856a93aff638f4 (patch) | |
tree | c8e1f2d6c401da74a7de0497b00bf39631d499dc /fortran | |
parent | 6daa20f06e85a19f89d061a5092fc7011148debf (diff) | |
download | hdf5-3abbb9c5f41bca50ae25ca9e0c856a93aff638f4.zip hdf5-3abbb9c5f41bca50ae25ca9e0c856a93aff638f4.tar.gz hdf5-3abbb9c5f41bca50ae25ca9e0c856a93aff638f4.tar.bz2 |
Fixed failure on BE with xlf (#968) (#977)
* Fixed seg fault with xlf on BE with -qintsize=8
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Co-authored-by: Scot Breitenfeld <brtnfld@hdfgroup.org>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/test/tH5Z.f90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90 index 56f1b3f..04b25a6 100644 --- a/fortran/test/tH5Z.f90 +++ b/fortran/test/tH5Z.f90 @@ -192,7 +192,8 @@ CONTAINS INTEGER(HSIZE_T), DIMENSION(2) :: chunk_dims = (/NN, MM/) INTEGER :: rank = 2 ! Dataset rank - INTEGER, DIMENSION(N,M) :: dset_data, data_out ! Data buffers + INTEGER, DIMENSION(N,M) :: dset_data ! Data buffers + INTEGER, DIMENSION(:,:), ALLOCATABLE :: data_out ! Data buffers INTEGER :: error ! Error flag INTEGER :: num_errors = 0 ! Number of data errors @@ -363,8 +364,9 @@ CONTAINS ! ! Read the dataset. ! + ALLOCATE(data_out(1:N,1:M)) CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error) - CALL check("h5dread_f", error, total_error) + CALL check("h5dread_f", error, total_error) ! !Compare the data. @@ -385,6 +387,7 @@ CONTAINS 100 IF (num_errors .GT. 0) THEN total_error=total_error + 1 END IF + DEALLOCATE(data_out) ! ! End access to the dataset and release resources used by it. |