gcc/testsuite/gfortran.dg/class_result_4.f90


1
2
3
4
5
6

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