libgomp/testsuite/libgomp.oacc-fortran/data-already-3.f

   1 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
   2
   3       IMPLICIT NONE
   4       INCLUDE "openacc_lib.h"
   5
   6       INTEGER I
   7
   8 !$ACC DATA PRESENT_OR_COPY (I)
   9       WRITE(0, *) "CheCKpOInT"
  10       CALL ACC_COPYIN (I)
  11 !$ACC END DATA
  12
  13       END
  14
  15 ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }