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

   1 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
   2
   3       IMPLICIT NONE
   4       INCLUDE "openacc_lib.h"
   5
   6       INTEGER I
   7
   8       CALL ACC_PRESENT_OR_COPYIN (I)
   9 !$ACC ENTER DATA CREATE (I)
  10
  11       END
  12
  13 ! { dg-shouldfail "" }
  14 ! { dg-output "already mapped to" }