procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add 'gfortran.dg/goacc-gomp/pr102330-{1,2,3}.f90' [PR102330]

Browse source 
..., currently XFAILed with 'dg-ice'.

	PR middle-end/102330
	gcc/testsuite/
	* gfortran.dg/goacc-gomp/pr102330-1.f90: New file.
	* gfortran.dg/goacc-gomp/pr102330-2.f90: Likewise.
	* gfortran.dg/goacc-gomp/pr102330-3.f90: Likewise.
This commit is contained in:
Thomas Schwinge 2022-01-27 14:17:28 +01:00
parent 1d9dc3dd74
commit 6870912578
3 changed files with 62 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gcc/testsuite/gfortran.dg/goacc-gomp/pr102330-1.f90 Normal file
View file

@ -0,0 +1,20 @@
! { dg-additional-options -fchecking }
! { dg-ice TODO }
! { dg-additional-options -fopt-info-omp-note }
! { dg-additional-options --param=openacc-privatization=noisy }
program p
!$omp master taskloop simd
do i = 1, 8
end do
!$acc parallel loop ! { dg-line l_compute1 }
! { dg-note {variable 'i' in 'private' clause is candidate for adjusting OpenACC privatization level} {} { target *-*-* } l_compute1 }
do i = 1, 8
end do
end
! { dg-bogus {Error: non-register as LHS of binary operation} TODO { target { ! offloading_enabled } xfail *-*-* } .-1 }
! { dg-bogus {error: non-register as LHS of binary operation} TODO { target offloading_enabled xfail *-*-* } .-2 }
! TODO See PR101551 for 'offloading_enabled' differences.
! { dg-excess-errors ICE }

20
gcc/testsuite/gfortran.dg/goacc-gomp/pr102330-2.f90 Normal file
View file

@ -0,0 +1,20 @@
! { dg-additional-options -fchecking }
! { dg-ice TODO }
! { dg-additional-options -fopt-info-omp-note }
! { dg-additional-options --param=openacc-privatization=noisy }
program p
!$omp taskloop lastprivate(i)
do i = 1, 8
end do
!$acc parallel loop ! { dg-line l_compute1 }
! { dg-note {variable 'i' in 'private' clause is candidate for adjusting OpenACC privatization level} {} { target *-*-* } l_compute1 }
do i = 1, 8
end do
end
! { dg-bogus {Error: non-register as LHS of binary operation} TODO { target { ! offloading_enabled } xfail *-*-* } .-1 }
! { dg-bogus {error: non-register as LHS of binary operation} TODO { target offloading_enabled xfail *-*-* } .-2 }
! TODO See PR101551 for 'offloading_enabled' differences.
! { dg-excess-errors ICE }

22
gcc/testsuite/gfortran.dg/goacc-gomp/pr102330-3.f90 Normal file
View file

@ -0,0 +1,22 @@
! { dg-additional-options -fchecking }
! { dg-ice TODO }
! { dg-additional-options -fopt-info-omp-note }
! { dg-additional-options --param=openacc-privatization=noisy }
program p
i = 0
!$omp task shared(i)
i = 1
!$omp end task
!$omp taskwait
!$acc parallel loop ! { dg-line l_compute1 }
! { dg-note {variable 'i' in 'private' clause is candidate for adjusting OpenACC privatization level} {} { target *-*-* } l_compute1 }
do i = 1, 8
end do
end
! { dg-bogus {Error: non-register as LHS of binary operation} TODO { target { ! offloading_enabled } xfail *-*-* } .-1 }
! { dg-bogus {error: non-register as LHS of binary operation} TODO { target offloading_enabled xfail *-*-* } .-2 }
! TODO See PR101551 for 'offloading_enabled' differences.
! { dg-excess-errors ICE }