interface
  integer function f() ! 2,20
  end function
end interface

contains

  subroutine s1(f)
    interface
      integer function f() ! 10,14 Subroutine parameter -- should not bind
      end function
    end interface
  end subroutine

  subroutine s2
    interface
      integer function f() ! 17,24
      end function
    end interface
  end subroutine

end program

integer function f() ! 24,18
  f = 0
end function