M2compiler-V3/compiler/tests/t_longstr.mod

MODULE TLongStr;
(* String literals longer than 64 bytes must survive parsing and lowering. *)
VAR ExitCode, i : INTEGER;
    s : ARRAY [0..255] OF CHAR;
BEGIN
  s := "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789";
  i := 0;
  WHILE (i <= HIGH(s)) AND (s[i] # CHR(0)) DO i := i + 1 END;
  IF (i = 100) AND (LEN("0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789") = 100)
     AND (HIGH("0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789") = 99) THEN
    ExitCode := 42
  ELSE
    ExitCode := 1
  END
END TLongStr.