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

}