summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2023-06-22 15:11:53 (GMT)
committerGitHub <noreply@github.com>2023-06-22 15:11:53 (GMT)
commite33fd7ecf1028b214841c97254f8b5fa125ecfde (patch)
tree65f2228972bd6bf5a7de52f1305e404d19819b4c /fortran/testpar
parent706c2557a898b72b76ecc7182f8c2164bb41bdcc (diff)
downloadhdf5-e33fd7ecf1028b214841c97254f8b5fa125ecfde.zip
hdf5-e33fd7ecf1028b214841c97254f8b5fa125ecfde.tar.gz
hdf5-e33fd7ecf1028b214841c97254f8b5fa125ecfde.tar.bz2
Fixed check for a VOL's async compatibility (#3164)
* cap flag fix in test * added async comp. output
Diffstat (limited to 'fortran/testpar')
-rw-r--r--fortran/testpar/async.F9010
1 files changed, 6 insertions, 4 deletions
diff --git a/fortran/testpar/async.F90 b/fortran/testpar/async.F90
index 2235ecf..88ecc3e 100644
--- a/fortran/testpar/async.F90
+++ b/fortran/testpar/async.F90
@@ -1329,7 +1329,7 @@ PROGRAM async_test
IF(.NOT.registered)THEN
! No VOL found registered
async_enabled = .FALSE.
- IF(mpi_rank==0) WRITE(*,'(A,/)') "NATIVE"
+ IF(mpi_rank==0) WRITE(*,'(A)') "NATIVE"
ELSE
! (2) Check if the VOL is async compatible
CALL h5pcreate_f(H5P_FILE_ACCESS_F, plist_id, hdferror)
@@ -1338,12 +1338,12 @@ PROGRAM async_test
CALL check("h5pget_vol_cap_flags_f", hdferror, total_error)
CALL h5pclose_f(plist_id, hdferror)
CALL check("h5pcreate_f", hdferror, total_error)
- IF(H5VL_CAP_FLAG_ASYNC_F.EQ.1_C_INT64_T) async_enabled = .TRUE.
+ IF(IAND(cap_flags,H5VL_CAP_FLAG_ASYNC_F).EQ.0_C_INT64_T) async_enabled = .FALSE.
IF(async_enabled .EQV. .FALSE.)THEN
! No async compatible VOL found
- IF(mpi_rank==0) WRITE(*,'(A,/)') "NATIVE"
+ IF(mpi_rank==0) WRITE(*,'(A)') "NATIVE"
ELSE
- IF(mpi_rank==0) WRITE(*,'(A,/)') TRIM(vol_connector_name)
+ IF(mpi_rank==0) WRITE(*,'(A)') TRIM(vol_connector_name)
CALL H5Vlregister_connector_by_name_f(TRIM(vol_connector_name), vol_id, hdferror)
CALL check("H5Vlregister_connector_by_name_f", hdferror, total_error)
ENDIF
@@ -1359,6 +1359,8 @@ PROGRAM async_test
ENDIF
ENDIF
+ IF(mpi_rank==0) WRITE(*,'(A,L1,/)') "VOL SUPPORTS ASYNC OPERATIONS: ", async_enabled
+
! H5ES API TESTING
ret_total_error = 0
CALL H5ES_tests(cleanup, ret_total_error)