diff options
author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-07 16:23:53 +0000 |
---|---|---|
committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-07 16:23:53 +0000 |
commit | 7066f1c8bd294318a243df1cd540ee8081c878e2 (patch) | |
tree | c07304583ba1607734ee36f4039959fa2d85658e /libgfortran/runtime | |
parent | ca3be54b1dc1b91cd7396d23c7c01722834a4108 (diff) |
PR libfortran/66458
* runtime/main.c (init): Only call set_fpu() if requested by user.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@226725 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r-- | libgfortran/runtime/main.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 3c66a30fff2..cb8e518b582 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -263,7 +263,11 @@ init (void) init_variables (); init_units (); - set_fpu (); + + /* If (and only if) the user asked for it, set up the FPU state. */ + if (options.fpe != 0) + set_fpu (); + init_compile_options (); #ifdef DEBUG |