M2compiler-V3/compiler/tests/t_recarr.mod

MODULE TRecArr;
(* Regression: a RECORD element in an ARRAY must stride by the record's
   size, not 4 (QbeGen.ArrBodyItems fell through to 4 for record/class/
   set elements).  Exit 42. *)
VAR ExitCode : INTEGER;
TYPE R = RECORD a : ARRAY [0..63] OF CHAR; n : INTEGER END;
VAR x : ARRAY [0..3] OF R;
BEGIN
  x[2].a[0] := "Z"; x[2].n := 7;
  x[0].n := 1; x[1].n := 2; x[3].n := 4;
  IF (x[2].a[0] = "Z") AND (x[2].n = 7)
     AND (x[0].n = 1) AND (x[1].n = 2) AND (x[3].n = 4)
  THEN ExitCode := 42 ELSE ExitCode := 1 END
END TRecArr.