Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 beta 3/9/83; site sdcrdcf.UUCP
Path: utzoo!linus!philabs!sdcsvax!sdcrdcf!pmontgom
From: pmontgom@sdcrdcf.UUCP (Peter Montgomery)
Newsgroups: net.lang.pascal
Subject: No error message for missing "end" statement.
Message-ID: <432@sdcrdcf.UUCP>
Date: Fri, 5-Aug-83 22:02:19 EDT
Article-I.D.: sdcrdcf.432
Posted: Fri Aug  5 22:02:19 1983
Date-Received: Mon, 8-Aug-83 23:49:58 EDT
Reply-To: pmontgom@sdcrdcf.UUCP (Peter Montgomery)
Organization: System Development Corporation, Santa Monica
Lines: 23

{ 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
*)