home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p5 / tst / e5.pcat < prev    next >
Text File  |  2005-11-01  |  482b  |  14 lines
  1. (*** Check formal declarations - should be 2 "Identifier is already defined" errors ***)
  2.  
  3. program is
  4.   var x: integer := 1;
  5.       a: real := 3.5;
  6.   procedure foo1 (x: integer; a:real) is
  7.       var x: integer := 2;                              (* Here *)
  8.       procedure foo2 (x: integer; a,b,c:real) is
  9.            var i,j,c: integer := 4;                     (* Here, on c *)
  10.            begin end;
  11.       procedure foo3 (x: integer; a:real) is begin end;
  12.     begin end;
  13.   begin end;
  14.