[thirdparty/gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / data-already-2.f

! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }

      IMPLICIT NONE

      INTEGER I

!$ACC DATA PRESENT_OR_COPY (I)
      WRITE(0, *) "CheCKpOInT"
!$ACC DATA COPYOUT (I)
      I = 0
!$ACC END DATA
!$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 "" }
Commit	Line	Data
41dbbb37 TS	1	! { dg-skip-if "" { --* } { "*" } { "-DACC_MEM_SHARED=0" } }
	2
	3	IMPLICIT NONE
	4
	5	INTEGER I
	6
	7	!$ACC DATA PRESENT_OR_COPY (I)
4e2a5450	8	WRITE(0, *) "CheCKpOInT"
41dbbb37 TS	9	!$ACC DATA COPYOUT (I)
	10	I = 0
	11	!$ACC END DATA
	12	!$ACC END DATA
	13
	14	END
	15
4e2a5450	16	! { dg-output "CheCKpOInT(\n\|\r\n\|\r).*" }
ae8ffbbb	17	! { 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" }
41dbbb37	18	! { dg-shouldfail "" }