blob: d8f42ee814f792ce26c543aa5734aa57126e8d41 [file] [log] [blame]
! { dg-do compile }
! PR69397
program p
interface f
procedure f1 ! { dg-error "neither function nor subroutine" }
!... more
end interface
integer, allocatable :: z
print *, f(z) ! { dg-error "no specific function" }
contains
integer function f2 (x)
integer, allocatable :: x
f2 = 1
end
end