blob: a543fb92a187b9953fe56c5481a03db3d6582f5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|