blob: a543fb92a187b9953fe56c5481a03db3d6582f5f [file] [log] [blame]
! { dg-do compile }
! PR fortran/95587 - ICE in gfc_target_encode_expr, at fortran/target-memory.c:362
program p
type t
end type t
class(*), allocatable :: x, y
class(t), allocatable :: u, v
class(t), pointer :: c, d
equivalence (x, y) ! { dg-error "conflicts with ALLOCATABLE" }
equivalence (u, v) ! { dg-error "conflicts with ALLOCATABLE" }
equivalence (c, d) ! { dg-error "conflicts with POINTER" }
end