diff options
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index bf3cd80..06f1e94 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -532,7 +532,7 @@ gfc_match_name (char *buffer) c = gfc_next_ascii_char (); if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore))) { - if (gfc_error_flag_test () == 0 && c != '(') + if (!gfc_error_flag_test () && c != '(') gfc_error ("Invalid character in name at %C"); gfc_current_locus = old_loc; return MATCH_NO; |