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      WRITE(0, *) "CheCKpOInT"
10!$ACC ENTER DATA CREATE (I)
11
12      END
13
14! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
15! { dg-output "already mapped to" }
16! { dg-shouldfail "" }
17