M2compiler-V3/compiler/tests/t_multidim_local.mod

MODULE TMultiDimLocal;
(* M2: local fixed 2-D/3-D arrays use flat payload + per-level views. *)
TYPE
  Grid = ARRAY [0..1], [0..2] OF INTEGER;
  Cube = ARRAY [0..1], [0..1], [0..1] OF INTEGER;
VAR ExitCode : INTEGER;

PROCEDURE P;
VAR g : Grid;
VAR c : Cube;
BEGIN
  g[1, 0] := 42;
  c[1, 1, 0] := 7;
  IF (g[1, 0] = 42) AND (c[1, 1, 0] = 7) THEN
    ExitCode := 42
  ELSE
    ExitCode := 1
  END
END P;

BEGIN
  ExitCode := 0;
  P
END TMultiDimLocal.