mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 16:50:57 +00:00
17 lines
313 B
FortranFixed
17 lines
313 B
FortranFixed
|
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
||
|
|
|
||
|
|
IMPLICIT NONE
|
||
|
|
|
||
|
|
INTEGER I
|
||
|
|
|
||
|
|
!$ACC DATA PRESENT_OR_COPY (I)
|
||
|
|
!$ACC DATA COPYOUT (I)
|
||
|
|
I = 0
|
||
|
|
!$ACC END DATA
|
||
|
|
!$ACC END DATA
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
! { dg-shouldfail "" }
|
||
|
|
! { dg-output "Trying to map into device .* object when .* is already mapped" }
|