2
0

tw37305a.pp 171 B

12345678910111213
  1. {$mode objfpc}
  2. var
  3. i, j, c: Int32;
  4. begin
  5. c := 1;
  6. for i := 0 to c do // SIGSEGV at runtime
  7. try
  8. j := i;
  9. finally
  10. if (j <> 0) then
  11. j := 0;
  12. end;
  13. end.