1! { dg-do compile }
2! PR69397
3program p
4   interface f
5      procedure f1 ! { dg-error "neither function nor subroutine" }
6      !... more
7   end interface
8   integer, allocatable :: z
9   print *, f(z) ! { dg-error "no specific function" }
10contains
11   integer function f2 (x)
12      integer, allocatable :: x
13      f2 = 1
14   end
15end
16
17