OSDN Git Service

* runtime/fpu.c: Add _GNU_SOURCE definition.
[pf3gnuchains/gcc-fork.git] / 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 }