From 7bb8c86c77010a0784f8238c9b9a0e38f6d6967d Mon Sep 17 00:00:00 2001 From: "M. Scot Breitenfeld" Date: Tue, 20 Jun 2023 16:24:43 -0500 Subject: [PATCH 1/2] cap flag fix in test --- fortran/testpar/async.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/testpar/async.F90 b/fortran/testpar/async.F90 index 2235ecfec51..a5866f5a630 100644 --- a/fortran/testpar/async.F90 +++ b/fortran/testpar/async.F90 @@ -1338,7 +1338,7 @@ 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" From 53ad12537a9f97cefbea017191115c8c8e3f9338 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 21 Jun 2023 09:34:44 -0500 Subject: [PATCH 2/2] added async comp. output --- fortran/testpar/async.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/fortran/testpar/async.F90 b/fortran/testpar/async.F90 index a5866f5a630..88ecc3edecd 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) @@ -1341,9 +1341,9 @@ PROGRAM async_test 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)