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

   1 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
   2
   3       IMPLICIT NONE
   4
   5       INTEGER I
   6
   7 !$ACC DATA PRESENT_OR_COPY (I)
   8       WRITE(0, *) "CheCKpOInT"
   9 !$ACC DATA COPYOUT (I)
  10       I = 0
  11 !$ACC END DATA
  12 !$ACC END DATA
  13
  14       END
  15
  16 ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
  17 ! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" }
  18 ! { dg-shouldfail "" }