path: root/gcc/testsuite/gfortran.dg/pr103475.f90

! { 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