Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/data-already-3.f
2017-04-10 13:32:00 +02:00

18 lines
349 B
Fortran

! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
IMPLICIT NONE
INCLUDE "openacc_lib.h"
INTEGER I
!$ACC DATA PRESENT_OR_COPY (I)
WRITE(0, *) "CheCKpOInT"
CALL ACC_COPYIN (I)
!$ACC END DATA
END
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" }
! { dg-shouldfail "" }