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 / p3 / tst / arrays3.pcat < prev    next >
Text File  |  2005-10-24  |  177b  |  10 lines
  1. program is
  2.   type T is array of integer;
  3.   var a := T {{ 10 of 0 }};
  4.   begin    
  5.     a[1] := 1;
  6.     a[0] := 1;
  7.     a[-1] := 1;  (* sytactically ok, but semantic problem *)
  8.   end;
  9.  
  10.