17 lines
308 B
C
17 lines
308 B
C
|
#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 ();
|
||
|
|
}
|