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

! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }

      IMPLICIT NONE
      INCLUDE "openacc_lib.h"

      INTEGER I

      CALL ACC_PRESENT_OR_COPYIN (I)
!$ACC ENTER DATA CREATE (I)

      END

! { dg-shouldfail "" }
! { dg-output "already mapped to" }