libgfortran/runtime/fpu.c

   1 /* This is needed for fpu-glibc.h, before all other includes */
   2 #ifdef HAVE_FENV_H
   3 #define _GNU_SOURCE
   4 #endif
   5
   6 #include "libgfortran.h"
   7
   8 /* We include the platform-dependent code.  */
   9 #include "fpu-target.h"
  10
  11 /* Function called by the front-end to tell us
  12    when a FPE should be raised.  */
  13 extern void set_fpe (int);
  14 export_proto(set_fpe);
  15
  16 void
  17 set_fpe (int exceptions)
  18 {
  19   options.fpe = exceptions;
  20   set_fpu ();
  21 }