From 99d67249f9e2d22d36edbd5c19217e09d3578da2 Mon Sep 17 00:00:00 2001 From: Ahmad Nawab Date: Tue, 12 Dec 2023 16:28:42 +0000 Subject: [PATCH] test_gang updated to account for allowed ISTATUS divergence between GANG and CHILDREN --- tests/CMakeLists.txt | 2 +- tests/test_gang.F90 | 24 ++++++++++++++++-------- 2 files changed, 17 insertions(+), 9 deletions(-) diff --git a/tests/CMakeLists.txt b/tests/CMakeLists.txt index f81a1cf..6a75906 100644 --- a/tests/CMakeLists.txt +++ b/tests/CMakeLists.txt @@ -65,7 +65,7 @@ list(APPEND TEST_FILES test_crc64.F90 test_field_gang_sparse_copy.F90 wrapper_modify_gpu.F90 - test_gang.F90 + test_gang.F90 ) #Place-holder for failing tests diff --git a/tests/test_gang.F90 b/tests/test_gang.F90 index 6de37ed..1adca04 100644 --- a/tests/test_gang.F90 +++ b/tests/test_gang.F90 @@ -490,7 +490,8 @@ SUBROUTINE GET_HOST_YLF4 ENDDO ENDDO -CALL CHECK_STATUS +! STATUS doesn't need to be synchronised for RDONLY calls to buffer +! CALL CHECK_STATUS END SUBROUTINE @@ -529,7 +530,8 @@ SUBROUTINE GET_DEVICE_YLF4 !$acc end serial -CALL CHECK_STATUS +! STATUS doesn't need to be synchronised for RDONLY calls to buffer +! CALL CHECK_STATUS END SUBROUTINE @@ -599,7 +601,8 @@ SUBROUTINE SET_HOST_YLF3 (KFLD) ENDDO ENDDO - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS ENDDO @@ -616,7 +619,8 @@ SUBROUTINE SET_DEVICE_YLF3 (KFLD) DO JDIM = 1, SIZE (KFLD) - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS JFLD = KFLD (JDIM) @@ -626,7 +630,8 @@ SUBROUTINE SET_DEVICE_YLF3 (KFLD) ZDEVICE3 => GET_DEVICE_DATA_RDWR (YLF3L (JFLD)%PTR) - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS CALL CHECK_DIMS_YLF3 (ZDEVICE3) @@ -645,7 +650,8 @@ SUBROUTINE SET_DEVICE_YLF3 (KFLD) !$acc end serial - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS ENDDO @@ -692,7 +698,8 @@ SUBROUTINE GET_DEVICE_YLF3 (KFLD) !$acc end serial - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS ENDDO @@ -732,7 +739,8 @@ SUBROUTINE GET_HOST_YLF3 (KFLD) ENDDO ENDDO - CALL CHECK_STATUS +! STATUS is only synced when calling GET/SYNC_HOST/DEVICE methods are called on BUFFER +! CALL CHECK_STATUS ENDDO