1! { dg-do compile }
2! PR fortran/78500
3class(t) function f() ! { dg-error "must be dummy, allocatable or pointer" }
4   f = 1              ! { dg-error "variable must not be polymorphic" }
5end
6
7