Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/data-already-7.f

17 lines
331 B
FortranFixed
Raw Normal View History

2015-08-28 15:33:40 +00:00
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
IMPLICIT NONE
INCLUDE "openacc_lib.h"
INTEGER I
!$ACC ENTER DATA CREATE (I)
2017-04-10 11:32:00 +00:00
WRITE(0, *) "CheCKpOInT"
2015-08-28 15:33:40 +00:00
CALL ACC_CREATE (I)
END
2017-04-10 11:32:00 +00:00
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
2015-08-28 15:33:40 +00:00
! { dg-output "already mapped to" }
2017-04-10 11:32:00 +00:00
! { dg-shouldfail "" }