gcc/testsuite/gfortran.dg/gacc/kernels-copyin-array-without-semocolon-and-limits_xfail.f95


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile } 
! { dg-options "-fopenacc -fdump-tree-original" } 

! { dg-xfail-if "" { *-*-* } { "*" } { "" } } 
! { dg-error "" "" { xfail *-*-* } } 
program test
	implicit none
	integer i
	integer :: x1 = 3, a1(10)

!$acc kernels copyin (a1()) 
	do i = 1,10
		x1 = x1 + 1
		a1(i) = x1
	end do
!$acc end kernels

end program test