|
|
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.