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