]> git.ipfire.org Git - thirdparty/gcc.git/blob - libgomp/testsuite/libgomp.oacc-fortran/data-already-1.f
Merge current set of OpenACC changes from gomp-4_0-branch.
[thirdparty/gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / data-already-1.f
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_COPYIN (I)
9
10 !$ACC DATA COPY (I)
11 I = 0
12 !$ACC END DATA
13
14 END
15
16 ! { dg-shouldfail "" }
17 ! { dg-output "Trying to map into device .* object when .* is already mapped" }