aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/runtime/fpu.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/runtime/fpu.c')
-rw-r--r--libgfortran/runtime/fpu.c16
1 files changed, 16 insertions, 0 deletions
diff --git a/libgfortran/runtime/fpu.c b/libgfortran/runtime/fpu.c
new file mode 100644
index 0000000..f81a3b0
--- /dev/null
+++ b/libgfortran/runtime/fpu.c
@@ -0,0 +1,16 @@
+#include "libgfortran.h"
+
+/* We include the platform-dependent code. */
+#include "fpu-target.h"
+
+/* Function called by the front-end to tell us
+ when a FPE should be raised. */
+extern void set_fpe (int);
+export_proto(set_fpe);
+
+void
+set_fpe (int exceptions)
+{
+ options.fpe = exceptions;
+ set_fpu ();
+}