diff options
| author | Allen Byrne <50328838+byrnHDF@users.noreply.github.com> | 2023-06-15 00:46:48 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-15 00:46:48 (GMT) |
| commit | d987620daeb226f3e2c89a48383f52cef83a94c6 (patch) | |
| tree | 3a57f2b538e1a664dd5f0512c676fe3ef1f355fb /fortran/test/tH5P_F03.F90 | |
| parent | 3d231bd0c018c4ac7a78640a51d404332a712d72 (diff) | |
| download | hdf5-d987620daeb226f3e2c89a48383f52cef83a94c6.zip hdf5-d987620daeb226f3e2c89a48383f52cef83a94c6.tar.gz hdf5-d987620daeb226f3e2c89a48383f52cef83a94c6.tar.bz2 | |
Sync fortran src files with develop (#3126)
* Sync fortran src files with develop
Diffstat (limited to 'fortran/test/tH5P_F03.F90')
| -rw-r--r-- | fortran/test/tH5P_F03.F90 | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90 index 0875b81..f15a471 100644 --- a/fortran/test/tH5P_F03.F90 +++ b/fortran/test/tH5P_F03.F90 @@ -532,6 +532,7 @@ SUBROUTINE external_test_offset(cleanup,total_error) INTEGER(hid_t) :: dset=-1 ! dataset INTEGER(hid_t) :: grp=-1 ! group to emit diagnostics INTEGER(size_t) :: i, j ! miscellaneous counters + INTEGER :: k CHARACTER(LEN=180) :: filename ! file names INTEGER, DIMENSION(1:25) :: part INTEGER, DIMENSION(1:100), TARGET :: whole ! raw data buffers @@ -598,8 +599,9 @@ SUBROUTINE external_test_offset(cleanup,total_error) CALL h5dread_f(dset, H5T_NATIVE_INTEGER, f_ptr, error, mem_space_id=space, file_space_id=space) CALL check("h5dread_f", error, total_error) - DO i = 1, 100 - IF(whole(i) .NE. i-1)THEN + DO k = 1, 100 + CALL verify("h5dread_f", whole(k), k-1, error) + IF(error .NE. 0)THEN WRITE(*,*) "Incorrect value(s) read." total_error = total_error + 1 EXIT @@ -619,8 +621,10 @@ SUBROUTINE external_test_offset(cleanup,total_error) CALL h5sclose_f(hs_space, error) CALL check("h5sclose_f", error, total_error) - DO i = INT(hs_start(1))+1, INT(hs_start(1)+hs_count(1)) - IF(whole(i) .NE. i-1)THEN + + DO k = INT(hs_start(1))+1, INT(hs_start(1)+hs_count(1)) + CALL verify("h5dread_f", whole(k), k-1, error) + IF(error .NE. 0)THEN WRITE(*,*) "Incorrect value(s) read." total_error = total_error + 1 EXIT |