M2compiler-V3/compiler/tests/t_open3d.mod

MODULE TOpen3D;
(* M3: fixed 3-D actual passed to an open 3-D VAR formal. *)
TYPE Cube = ARRAY [0..1], [0..1], [0..1] OF INTEGER;
VAR ExitCode : INTEGER;
    c : Cube;

PROCEDURE SetIt (VAR a : ARRAY OF ARRAY OF ARRAY OF INTEGER);
BEGIN
  a[1, 0, 1] := 42
END SetIt;

BEGIN
  SetIt(c);
  IF c[1, 0, 1] = 42 THEN ExitCode := 42 ELSE ExitCode := 1 END
END TOpen3D.