mirror of git://gcc.gnu.org/git/gcc.git
17 lines
331 B
Fortran
17 lines
331 B
Fortran
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
|
|
|
IMPLICIT NONE
|
|
INCLUDE "openacc_lib.h"
|
|
|
|
INTEGER I
|
|
|
|
!$ACC ENTER DATA CREATE (I)
|
|
WRITE(0, *) "CheCKpOInT"
|
|
CALL ACC_CREATE (I)
|
|
|
|
END
|
|
|
|
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
|
|
! { dg-output "already mapped to" }
|
|
! { dg-shouldfail "" }
|