(* Test: NEW of open arrays *)

MODULE Main;

TYPE
  R = RECORD
    x: INTEGER;
    y: [3..4];
  END;

  t1 = REF ARRAY OF R;
  t2 = REF ARRAY OF ARRAY OF [7..8];
  t3 = REF ARRAY OF ARRAY OF ARRAY OF [10..12];

VAR
  v1: t1;
  v2: t2;
  v3: t3;
  i, j, k: INTEGER;

BEGIN
  v1 := NEW (t1, i);
  v2 := NEW (t2, i, j);
  v3 := NEW (t3, i, j, k);
END Main.