libgfortran/runtime/fpu.c

   1 #include "libgfortran.h"
   2
   3 /* We include the platform-dependent code.  */
   4 #include "fpu-target.h"
   5
   6 /* Function called by the front-end to tell us
   7    when a FPE should be raised.  */
   8 extern void set_fpe (int);
   9 export_proto(set_fpe);
  10
  11 void
  12 set_fpe (int exceptions)
  13 {
  14   options.fpe = exceptions;
  15   set_fpu ();
  16 }