5 files changed, 165 insertions, 0 deletions

diff --git a/src/regress/lib/libc/ieeefp/Makefile b/src/regress/lib/libc/ieeefp/Makefile
new file mode 100644
index 0000000000..0f453a31e9
--- /dev/null
+++ b/src/regress/lib/libc/ieeefp/Makefile
@@ -0,0 +1,9 @@
+#       $NetBSD: Makefile,v 1.5 1996/04/09 16:54:18 phil Exp $
+
+SUBDIR+= except round
+
+regress: _SUBDIRUSE
+
+install:
+
+.include <bsd.subdir.mk>
diff --git a/src/regress/lib/libc/ieeefp/except/Makefile b/src/regress/lib/libc/ieeefp/except/Makefile
new file mode 100644
index 0000000000..91f24f15f6
--- /dev/null
+++ b/src/regress/lib/libc/ieeefp/except/Makefile
@@ -0,0 +1,12 @@
+#       $NetBSD: Makefile,v 1.1 1995/04/26 00:27:25 jtc Exp $
+
+PROG=   except
+SRCS=   except.c
+NOMAN=
+
+install:
+
+regress: ${PROG}
+        ./${PROG}
+
+.include <bsd.prog.mk>
diff --git a/src/regress/lib/libc/ieeefp/except/except.c b/src/regress/lib/libc/ieeefp/except/except.c
new file mode 100644
index 0000000000..a2a107a788
--- /dev/null
+++ b/src/regress/lib/libc/ieeefp/except/except.c
@@ -0,0 +1,88 @@
+#include <stdio.h>
+#include <signal.h>
+#include <assert.h>
+#include <ieeefp.h>
+#include <float.h>
+
+void sigfpe();
+volatile sig_atomic_t signal_cought;
+
+static volatile const double one  = 1.0;
+static volatile const double zero = 0.0;
+static volatile const double huge = DBL_MAX;
+static volatile const double tiny = DBL_MIN;
+
+int
+main()
+{
+        volatile double x;
+
+        /*
+         * check to make sure that all exceptions are masked and 
+         * that the accumulated exception status is clear.
+         */
+        assert(fpgetmask() == 0);
+        assert(fpgetsticky() == 0);
+
+        /* set up signal handler */
+        signal (SIGFPE, sigfpe);
+        signal_cought = 0;
+
+        /* trip divide by zero */
+        x = one / zero;
+        assert (fpgetsticky() & FP_X_DZ);
+        assert (signal_cought == 0);
+        fpsetsticky(0);
+
+        /* trip invalid operation */
+        x = zero / zero;
+        assert (fpgetsticky() & FP_X_INV);
+        assert (signal_cought == 0);
+        fpsetsticky(0);
+
+        /* trip overflow */
+        x = huge * huge;
+        assert (fpgetsticky() & FP_X_OFL);
+        assert (signal_cought == 0);
+        fpsetsticky(0);
+
+        /* trip underflow */
+        x = tiny * tiny;
+        assert (fpgetsticky() & FP_X_UFL);
+        assert (signal_cought == 0);
+        fpsetsticky(0);
+
+#if 0
+        /* unmask and then trip divide by zero */
+        fpsetmask(FP_X_DZ);
+        x = one / zero;
+        assert (signal_cought == 1);
+        signal_cought = 0;
+
+        /* unmask and then trip invalid operation */
+        fpsetmask(FP_X_INV);
+        x = zero / zero;
+        assert (signal_cought == 1);
+        signal_cought = 0;
+
+        /* unmask and then trip overflow */
+        fpsetmask(FP_X_OFL);
+        x = huge * huge;
+        assert (signal_cought == 1);
+        signal_cought = 0;
+
+        /* unmask and then trip underflow */
+        fpsetmask(FP_X_UFL);
+        x = tiny * tiny;
+        assert (signal_cought == 1);
+        signal_cought = 0;
+#endif
+
+        exit(0);
+}
+
+void
+sigfpe()
+{
+        signal_cought = 1;
+}
diff --git a/src/regress/lib/libc/ieeefp/round/Makefile b/src/regress/lib/libc/ieeefp/round/Makefile
new file mode 100644
index 0000000000..571133436c
--- /dev/null
+++ b/src/regress/lib/libc/ieeefp/round/Makefile
@@ -0,0 +1,12 @@
+#       $NetBSD: Makefile,v 1.1 1995/04/26 00:27:27 jtc Exp $
+
+PROG=   round
+SRCS=   round.c
+NOMAN=
+
+install:
+
+regress: ${PROG}
+        ./${PROG}
+
+.include <bsd.prog.mk>
diff --git a/src/regress/lib/libc/ieeefp/round/round.c b/src/regress/lib/libc/ieeefp/round/round.c
new file mode 100644
index 0000000000..b9fcd9771e
--- /dev/null
+++ b/src/regress/lib/libc/ieeefp/round/round.c
@@ -0,0 +1,44 @@
+/*      $NetBSD: round.c,v 1.1 1995/04/26 00:27:28 jtc Exp $    */
+
+/*
+ * Written by J.T. Conklin, Apr 18, 1995
+ * Public domain.
+ */
+
+#include <assert.h>
+#include <stdlib.h>
+#include <ieeefp.h>
+#include <float.h>
+
+int
+main()
+{
+        /*
+         * This test would be better if it actually performed some
+         * calculations to verify the selected rounding mode.  But
+         * this is probably acceptable since the fp{get,set}round
+         * functions usually just get or set the processors fpu
+         * control word.
+         */
+
+        assert(fpgetround() == FP_RN);
+        assert(FLT_ROUNDS == 1);
+
+        assert(fpsetround(FP_RP) == FP_RN);
+        assert(fpgetround() == FP_RP);
+        assert(FLT_ROUNDS == 2);
+
+        assert(fpsetround(FP_RM) == FP_RP);
+        assert(fpgetround() == FP_RM);
+        assert(FLT_ROUNDS == 3);
+
+        assert(fpsetround(FP_RZ) == FP_RM);
+        assert(fpgetround() == FP_RZ);
+        assert(FLT_ROUNDS == 0);
+
+        assert(fpsetround(FP_RN) == FP_RZ);
+        assert(fpgetround() == FP_RN);
+        assert(FLT_ROUNDS == 1);
+
+        exit(0);
+}