COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "BUG"
C00003 ENDMK
C⊗;
BEGIN "BUG"
INTEGER I,J,K,L;
PROCEDURE FOO;I←0;
RECURSIVE PROCEDURE BAR;I←1;
REQUIRE 4000 STRING_SPACE;
REQUIRE 450 SYSTEM_PDL;
REQUIRE 400 STRING_PDL;

DO BEGIN
	I←1;
	DONE;
	I←2;
END UNTIL I=I;
J←I;
END;