M2compiler-V3/compiler/tests/t_ctor1.mod

MODULE tctor1;
// GNU Modula-2 array constructor: a CHAR-array constant copied whole.
TYPE arr = ARRAY [0..4] OF CHAR;
CONST my = arr {'h','e','l','l','o'};
VAR a : arr;
VAR ExitCode : INTEGER;
BEGIN
  a := my;
  IF (a[0] = 'h') AND (a[4] = 'o') THEN ExitCode := 0 ELSE ExitCode := 1 END
END tctor1.