!R1210
subroutine p
	call p2
end
subroutine p2
	call p3
end
subroutine p3
!error: subroutine p4 isnot declared
	call p4
end

