1! { dg-do compile }
2! PR fortran/78814
3! Code contributed by Gerhard Steinmetz
4program p
5   class(*) :: x  ! { dg-error " must be dummy, allocatable or pointer" }
6   print *, f(x)
7end
8
9