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:
parent
b0fb2720d8
commit
f7fb2f662f
@ -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
|
||||
|
||||
|
@ -1,3 +1,6 @@
|
||||
! This currently ICEs. Avoid that.
|
||||
! { dg-skip-if "PR98979" { *-*-* } }
|
||||
|
||||
type :: type1
|
||||
character(len=35) :: a
|
||||
end type type1
|
||||
|
@ -1,3 +1,6 @@
|
||||
! This currently ICEs. Avoid that.
|
||||
! { dg-skip-if "PR98979" { *-*-* } }
|
||||
|
||||
type :: type1
|
||||
character(len=35,kind=4) :: a
|
||||
end type type1
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user