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