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