blob: 6cce5e8ebf742eb1c95c5ec8f599c51ec1c565ff [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O2 -Wall" }
! PR fortran/103475 - ICE in gfc_expr_attr
! Contributed by G.Steinmetz
program p
type t
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
y = x() ! { dg-error "Cannot convert invalid class" }
end