! { dg-do compile } | |
! | |
! PR 54778: [OOP] an ICE on invalid OO code | |
! | |
! Contributed by Sylwester Arabas <slayoo@staszic.waw.pl> | |
implicit none | |
type :: arr_t | |
real :: at | |
end type | |
type(arr_t) :: this | |
class(arr_t) :: elem ! { dg-error "must be dummy, allocatable or pointer" } | |
elem = this ! { dg-error "Variable must not be polymorphic in intrinsic assignment" } | |
end |