mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-02 18:53:22 +00:00
19 lines
465 B
Fortran
19 lines
465 B
Fortran
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
|
|
|
IMPLICIT NONE
|
|
|
|
INTEGER I
|
|
|
|
!$ACC DATA CREATE (I)
|
|
WRITE(0, *) "CheCKpOInT"
|
|
!$ACC PARALLEL COPYIN (I)
|
|
I = 0
|
|
!$ACC END PARALLEL
|
|
!$ACC END DATA
|
|
|
|
END
|
|
|
|
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
|
|
! { 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" }
|
|
! { dg-shouldfail "" }
|