blob: d4cfaf841c6aea7a6e0dbb1d95285d4d7ec2e52a [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=f2003" }
!
! PR fortran/43366
!
! Invalid assignment to an allocatable polymorphic var.
!
type t
end type t
class(t), allocatable :: var
var = t() ! { dg-error "Fortran 2008: Assignment to an allocatable polymorphic variable" }
end