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

program p
    a = 3
    d = 4

    stop
    contains
	recursive subroutine s !<<<<<7,5,7,15,pass

	integer ::a
	call s
	end subroutine

end program