Subversion Repositories scarts

#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 ();
}