1! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
2
3      IMPLICIT NONE
4
5      INTEGER I
6
7!$ACC DATA CREATE (I)
8      WRITE(0, *) "CheCKpOInT"
9!$ACC PARALLEL COPYIN (I)
10      I = 0
11!$ACC END PARALLEL
12!$ACC END DATA
13
14      END
15
16! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
17! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" }
18! { dg-shouldfail "" }
19