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

   1 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
   2
   3       IMPLICIT NONE
   4
   5       INTEGER I
   6
   7 !$ACC DATA CREATE (I)
   8 !$ACC PARALLEL COPYIN (I)
   9       I = 0
  10 !$ACC END PARALLEL
  11 !$ACC END DATA
  12
  13       END
  14
  15 ! { dg-shouldfail "" }
  16 ! { dg-output "Trying to map into device .* object when .* is already mapped" }