TEST_GANG updated to account for allowed ISTATUS divergence between G…

…ANG and CHILDREN

tests/test_gang.F90

@@ -496,7 +496,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
 
@@ -535,7 +536,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
 
@@ -605,7 +607,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
 
@@ -622,7 +625,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)
 
@@ -632,7 +636,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)
 
@@ -651,7 +656,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
 
@@ -698,7 +704,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
 
@@ -738,7 +745,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