org.eclipse.photran.core.vpg.tests/vpg-test-code/interface-links/interface1.f90

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