NEERC/yield/yield_re_dpr_crash2.dpr

   1 {$apptype console}\r
   2 {$r+,o+}\r
   3 \r
   4 uses\r
   5   SysUtils;\r
   6 \r
   7 var\r
   8   a, b, s: integer;\r
   9 \r
  10 begin\r
  11   AssignFile(input, 'yield.in');\r
  12   Reset(input);\r
  13   AssignFile(output, 'yield.out');\r
  14   Rewrite(output);\r
  15 \r
  16   ReadLn(a, b);\r
  17   s := 0;\r
  18   s := a div s; // crash here\r
  19 \r
  20   WriteLn(s);\r
  21 \r
  22   Close(input);\r
  23   Close(output);\r
  24 end.