M2compiler-V3/compiler/tests/t_trap_emptystr.mod

MODULE TTrapEmptyStr;
VAR s : ARRAY [0..2] OF CHAR;
VAR ExitCode : INTEGER;
BEGIN
  s := "";
  ExitCode := 0
END TTrapEmptyStr.