test_gang updated to account for allowed ISTATUS divergence between G…

…ANG and CHILDREN
ecmwf-ifs · Dec 12, 2023 · 99d6724 · 99d6724
1 parent 261c944
commit 99d6724
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 9 deletions.
diff --git 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
@@ -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