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