blob: d96bf0b2f843a4e49b40f328a43535d9f5049a64 [file] [log] [blame]
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
IMPLICIT NONE
INCLUDE "openacc_lib.h"
INTEGER I
!$ACC ENTER DATA CREATE (I)
CALL ACC_CREATE (I)
END
! { dg-shouldfail "" }
! { dg-output "already mapped to" }