openacc: Add XFAILs [PR98979]

This patch adds some XFAILs for PR98979 until the patch to fix them has
been approved. See:

  https://gcc.gnu.org/pipermail/gcc-patches/2021-February/564711.html

gcc/testsuite/
	PR fortran/98979
	* gfortran.dg/goacc/array-with-dt-2.f90: Add expected errors.
	* gfortran.dg/goacc/derived-chartypes-1.f90: Skip ICEing test.
	* gfortran.dg/goacc/derived-chartypes-2.f90: Likewise.

libgomp/
	PR fortran/98979
	* testsuite/libgomp.oacc-fortran/array-stride-dt-1.f90: Add expected
	errors.
This commit is contained in:
Julian Brown 2021-02-09 12:00:14 -08:00
parent b0fb2720d8
commit f7fb2f662f
4 changed files with 12 additions and 4 deletions

View File

@ -4,7 +4,8 @@ end type t
type(t), allocatable :: b(:)
!$acc update host(b(::2))
!$acc update host(b(1)%A(::3,::4))
! TODO: Remove expected errors when this is supported.
!$acc update host(b(::2)) ! { dg-error "Stride should not be specified for array section in MAP clause" }
!$acc update host(b(1)%A(::3,::4)) ! { dg-error "Stride should not be specified for array section in MAP clause" }
end

View File

@ -1,3 +1,6 @@
! This currently ICEs. Avoid that.
! { dg-skip-if "PR98979" { *-*-* } }
type :: type1
character(len=35) :: a
end type type1

View File

@ -1,3 +1,6 @@
! This currently ICEs. Avoid that.
! { dg-skip-if "PR98979" { *-*-* } }
type :: type1
character(len=35,kind=4) :: a
end type type1

View File

@ -24,8 +24,9 @@ end do
b(1)%A(:,:) = 5
!$acc update device(b(::2))
!$acc update device(b(1)%A(::3,::4))
! TODO: Remove expected errors once this is supported.
!$acc update device(b(::2)) ! { dg-error "Stride should not be specified for array section in MAP clause" }
!$acc update device(b(1)%A(::3,::4)) ! { dg-error "Stride should not be specified for array section in MAP clause" }
do i=1,20
!$acc exit data copyout(b(i)%A)