|
|
1.1 ! root 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.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.