tw37305b.pp 186 B

123456789101112
  1. {$mode objfpc}
  2. var
  3. i, j: Int32;
  4. begin
  5. for i := 0 to 1 do // Error: Compilation raised exception internally
  6. try
  7. j := i;
  8. finally
  9. if (j <> 0) then
  10. j := 0;
  11. end;
  12. end.