blob: 4b22a3c30ee59c3339345e5409766215f25b7d92 [file] [log] [blame]
! { dg-do compile }
! PR fortran/78500
class(t) function f() ! { dg-error "must be dummy, allocatable or pointer" }
f = 1 ! { dg-error "variable must not be polymorphic" }
end