M2compiler-V3/compiler/tests/t_lower5.mod

MODULE TLower5;
(* Lower slice L5: records, arrays, field/index designators, aggregate
   copies (record/array), array-of-records.  Exit 44. *)
TYPE
  Rec  = RECORD a, b: INTEGER; END;
  Vec  = ARRAY [0..3] OF INTEGER;
  Recs = ARRAY [0..2] OF Rec;
VAR
  r, r2 : Rec;
  v, w  : Vec;
  m     : Recs;
  i     : INTEGER;
  ExitCode : INTEGER;
BEGIN
  r.a := 40;
  r.b := 2;
  r2 := r;
  v[0] := 1;
  v[1] := 2;
  w := v;
  m[1].a := 5;
  m[1].b := 6;
  i := r2.a + r2.b + w[0] + w[1] + m[1].a + m[1].b - 12;
  ExitCode := i
END TLower5.