org.eclipse.photran.core.vpg.tests/refactoring-test-code/Safe-Delete-Internal-Subprogram/test3/test3.f90

program p
    a = 3
    d = 4
  interface
    subroutine s
    end subroutine s
  end interface
    stop
end program

subroutine s !<<<<<11,1,11,11,fail-initial

	integer ::a
	call s
	end subroutine