4.3BSD - /usr/src/ucb/pascal/pdx/test/fpe.p

   1: {
   2:   test of floating point exception handling
   3: }
   4: 
   5: program fpe(input, output);
   6: var x, y : real;
   7: begin
   8:     x := 1;
   9:     y := 0;
  10:     writeln(x/y);
  11: end.