MODULE TrapTest;

VAR i, j: INTEGER; r: REAL;
BEGIN
  i:=3; j:=0;
  i:=i DIV j;
END TrapTest.
