PR c++/86342 - -Wdeprecated-copy and system headers.
[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / data-already-8.f
blob7a41f67225a427ffb21e8159c9c5446be9852969
1 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
3 IMPLICIT NONE
5 INTEGER I
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
14 END
16 ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }