🚀 go-pugleaf

{ When compiled using "pc -c", this yields no syntax errors. }
{ But when we try to link it with other procedures, "two" is undefined. }
{ Using "pc -S" or "nm" shows nothing written to the object file for "two". }

{ We use Berkeley Pascal PC -- Version 2.0 (Fri Jul 10 17:13:18 1981). }

procedure two; forward;
procedure one;
begin
    two;
end { one };

procedure two;
begin
    while 1 <= 0 do begin writeln(1); { begin without end };
end { two };
(*
				   Peter Montgomery

	{bli,blix,bmcg,burdvax,cbosgd,csun,ihnss,hplabs,ihnp4,netvax,orstcs,
	parallax,randvax,sdccsu3,slant45,sdcnet,sytek,trw-unix,ucla-s,
	ucla-vax,hughes}!sdcrdcf!pmontgom
*)