M2compiler-V3/compiler/tests/t_trap_index.mod

MODULE TTrapIndex;
VAR a : ARRAY [0..4] OF INTEGER;
VAR ExitCode : INTEGER;
BEGIN
  a[5] := 1;
  ExitCode := 0
END TTrapIndex.