M2compiler-V1/tests/c_copy2.mod

MODULE CCopy2;
VAR a, b : ARRAY [1 .. 5] OF CHAR; ExitCode : INTEGER;
BEGIN
  a := "hello";
  b := a;
  IF (b[1] = "h") AND (b[5] = "o") THEN ExitCode := 9 ELSE ExitCode := 0 END
END CCopy2.