! { dg-do compile } ! Check that equivalence with allocatable components isn't allowed (PR 20541) program main type :: foo sequence integer, allocatable :: x(:) end type foo type(foo) :: a integer :: b equivalence (a, b) ! { dg-error "cannot have ALLOCATABLE components" } end program main