diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-07 16:23:53 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-07 16:23:53 +0000 |
| commit | c2cc83bc88a5a37a37b46bda1f3263a8bcca87e5 (patch) | |
| tree | c07304583ba1607734ee36f4039959fa2d85658e /libgfortran/runtime/main.c | |
| parent | 8f3f5ac089f8850f64dad253bc54e31f450e9ddf (diff) | |
| download | gcc-c2cc83bc88a5a37a37b46bda1f3263a8bcca87e5.zip gcc-c2cc83bc88a5a37a37b46bda1f3263a8bcca87e5.tar.gz gcc-c2cc83bc88a5a37a37b46bda1f3263a8bcca87e5.tar.bz2 | |
re PR libfortran/66458 (Loading libgfortran.so changes the FPU exception flags)
PR libfortran/66458
* runtime/main.c (init): Only call set_fpu() if requested by user.
From-SVN: r226725
Diffstat (limited to 'libgfortran/runtime/main.c')
| -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 3c66a30..cb8e518 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 |