Path: utzoo!attcan!uunet!wuarchive!usc!ucsd!ucbvax!apo.esiee.fr!bonnetf
From: bonnetf@apo.esiee.fr (bonnet-franck)
Newsgroups: comp.sys.apollo
Subject: Bug in pas compiler
Message-ID: <9010151553.AB00336@apo.esiee.fr>
Date: 15 Oct 90 17:12:39 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 38
X-Unparsable-Date: Mon, 15 Oct 90 17:53:52 ETE

We found a strange bug in pascal compiler (Pascal compiler 68K Rev 8.7(271))
The source program follows :

----------------- CUT HERE ----------------------------

program b(input, output);
var princ: integer;
procedure p(var s:integer);
begin
  s := 1;
 writeln(s);
end;

begin       
p(princ);
writeln(princ);
end.

----------------- CUT HERE ----------------------------

The result follows :

bug.bin
         0
         1

!!!
Has anyone an idea about that ? 


-------------------------------------------------------------------------------|
bonnetf@apo.esiee.fr                     |                                     |
coupriem@apo.esiee.fr (he found the bug !)                                     |
                                         | Surfing ...                         |
E.S.I.E.E                                |                                     |
BP99 93162 Noisy le Grand cedex.FRANCE.  | the rest is details !               |
Fax   : 33 1 45 92 66 99                 |                                     |
-------------------------------------------------------------------------------|