blob: bc0ffcd2305b47272d2b437be52e9e80622d5078 [file] [log] [blame]
! { 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