diff options
Diffstat (limited to 'gcc/fortran/error.c')
| -rw-r--r-- | gcc/fortran/error.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index c47e655e242..60b209354c5 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -806,10 +806,10 @@ gfc_notification_std (int std) /* Possibly issue a warning/error about use of a nonstandard (or deleted) feature. An error/warning will be issued if the currently selected - standard does not contain the requested bits. Return FAILURE if + standard does not contain the requested bits. Return false if an error is generated. */ -gfc_try +bool gfc_notify_std (int std, const char *gmsgid, ...) { va_list argp; @@ -819,10 +819,10 @@ gfc_notify_std (int std, const char *gmsgid, ...) warning = ((gfc_option.warn_std & std) != 0) && !inhibit_warnings; if ((gfc_option.allow_std & std) != 0 && !warning) - return SUCCESS; + return true; if (suppress_errors) - return warning ? SUCCESS : FAILURE; + return warning ? true : false; cur_error_buffer = warning ? &warning_buffer : &error_buffer; cur_error_buffer->flag = 1; @@ -883,7 +883,7 @@ gfc_notify_std (int std, const char *gmsgid, ...) cur_error_buffer->flag = 0; } - return (warning && !warnings_are_errors) ? SUCCESS : FAILURE; + return (warning && !warnings_are_errors) ? true : false; } |
