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