M2compiler-V3/compiler/tests/t_trap_count.mod

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