Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/data-already-8.f @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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 "" }