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 / eMisc1.pcat < prev    next >
Text File  |  2005-11-01  |  465b  |  19 lines
  1. (***  This program tests a varied collection of error conditions and
  2.       should produce a number of different messages.  ***)
  3.  
  4. program is
  5.   var x: xxx1 := xxx2;
  6.   var x := xxx3();
  7.   type t1 is record
  8.                f1: integer;
  9.                f1: integer;
  10.              end;
  11.   type t1 is array of t1;
  12.   procedure foo1 (a,a: real) is begin end;
  13.   procedure foo1 () is begin end;
  14. begin
  15.     x := xxx5 {f1:=1; f1:=1; xxx6:=1};
  16.     x := xxx7 {{ 1 }};
  17.     xxx8 ();
  18. end;
  19.