From cd8ec47392372c63f535530990496974034e3cb9 Mon Sep 17 00:00:00 2001
From: Keith Bostic <bostic@ucbvax.Berkeley.EDU>
Date: Tue, 16 Apr 1991 21:58:53 -0800
Subject: [PATCH] date and time created 91/04/16 14:58:53 by bostic

SCCS-vsn: usr.bin/pascal/pdx/test/fpe.p 5.1
---
 usr/src/usr.bin/pascal/pdx/test/fpe.p | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 usr/src/usr.bin/pascal/pdx/test/fpe.p

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
index 0000000000..502e3d4002
--- /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.
-- 
2.20.1