diff options
| author | Thomas Schwinge <tschwinge@baylibre.com> | 2024-03-11 22:51:28 +0100 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@baylibre.com> | 2024-03-11 22:51:28 +0100 |
| commit | a95e21151a6366e7344d0f1983f99e318c5a7097 (patch) | |
| tree | 11d987406d9ce8399ec1736477d971ef09344df2 /gcc/fortran/options.cc | |
| parent | 02d394b2736afa9a24ab3e1b8ad56fd6ac37e0f4 (diff) | |
| parent | af4bb221153359f5948da917d5ef2df738bb1e61 (diff) | |
| download | gcc-a95e21151a6366e7344d0f1983f99e318c5a7097.zip gcc-a95e21151a6366e7344d0f1983f99e318c5a7097.tar.gz gcc-a95e21151a6366e7344d0f1983f99e318c5a7097.tar.bz2 | |
Merge commit 'af4bb221153359f5948da917d5ef2df738bb1e61' into HEAD
Diffstat (limited to 'gcc/fortran/options.cc')
| -rw-r--r-- | gcc/fortran/options.cc | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/options.cc b/gcc/fortran/options.cc index 27311961..2ad2247 100644 --- a/gcc/fortran/options.cc +++ b/gcc/fortran/options.cc @@ -555,9 +555,12 @@ gfc_handle_fpe_option (const char *arg, bool trap) pos++; result = 0; - if (!trap && strncmp ("none", arg, pos) == 0) + if (strncmp ("none", arg, pos) == 0) { - gfc_option.fpe_summary = 0; + if (trap) + gfc_option.fpe = 0; + else + gfc_option.fpe_summary = 0; arg += pos; pos = 0; continue; @@ -586,7 +589,7 @@ gfc_handle_fpe_option (const char *arg, bool trap) break; } } - if (!result && !trap) + if (!result && trap) gfc_fatal_error ("Argument to %<-ffpe-trap%> is not valid: %s", arg); else if (!result) gfc_fatal_error ("Argument to %<-ffpe-summary%> is not valid: %s", arg); |