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