blob: f81a3b05a421e83f6439409365692779a624c9f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 ();
}
|
