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 / forstmt.pcat < prev    next >
Text File  |  2005-10-24  |  789b  |  39 lines
  1. (* Test the parsing of LValues in the index position of a for stmt. *)
  2.  
  3. program is
  4.   type T1 is array of integer;
  5.        T2 is array of T;
  6.        T3 is array of T2;
  7.        MyRec is record
  8.                   f1: int;
  9.                   f2: MyRec;
  10.                 end;
  11.   var a1: T1 := nil;
  12.       a2: T2 := nil;
  13.       a3: T3 := nil;
  14.       r: MyRec := nil;
  15.       
  16.   var x := 0;
  17.   begin
  18.       for a1[11] := 1 to 10 do
  19.           x := 4444;
  20.       end;
  21.       for a2[11][12] := 11 to 20 do
  22.           x := 5555;
  23.       end;
  24.       for a3[11][12][13] := 21 to 30 do
  25.           x := 6666;
  26.       end;
  27.       for r.f1 := 31 to 40 do
  28.           x := 7777;
  29.       end;
  30.       for r.f2.f1 := 41 to 50 do
  31.           x := 8888;
  32.       end;
  33.       for r.f2.f2.f1 := 51 to 60 do
  34.           x := 9999;
  35.       end;
  36.   end;
  37.  
  38.   
  39.