date and time created 91/04/16 14:58:53 by bostic

SCCS-vsn: usr.bin/pascal/pdx/test/fpe.p 5.1

diff --git a/usr/src/usr.bin/pascal/pdx/test/fpe.p b/usr/src/usr.bin/pascal/pdx/test/fpe.p
new file mode 100644 (file)
index 0000000..502e3d4
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/test/fpe.p
@@ -0,0 +1,20 @@
+(*
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *     @(#)fpe.p       5.1 (Berkeley) %G%
+ *)
+
+{
+  test of floating point exception handling
+}
+
+program fpe(input, output);
+var x, y : real;
+begin
+       x := 1;
+       y := 0;
+       writeln(x/y);
+end.