NEERC/yield/yield_re_dpr_crash.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   try \r
  19     s := a div s;\r
  20   except\r
  21     // catch wrong excepiton\r
  22     on EZeroDivide do s := a + b;\r
  23   end;\r
  24 \r
  25   WriteLn(s);\r
  26 \r
  27   Close(input);\r
  28   Close(output);\r
  29 end.