! { dg-do compile } | |
! | |
! PR fortran/91586 | |
! | |
! Contributed by G. Steinmetz | |
! | |
program p | |
type t | |
class(*), allocatable :: a | |
end type | |
class(t) :: x, y ! { dg-error "must be dummy, allocatable or pointer" } | |
y = x ! { dg-error "Nonallocatable variable must not be polymorphic in intrinsic assignment" } | |
end |