diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-12-06 17:33:11 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-12-06 17:33:11 +0100 |
| commit | 0f447a6e33db466cb8b04fc3583ed76626ca8f3b (patch) | |
| tree | 636127fb29b38398c755e5e967a9d89e19339271 /gcc/fortran/match.c | |
| parent | b8a82c9dc6a72e9a98f1df09f4cba9de379236ae (diff) | |
| download | gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.zip gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.tar.gz gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.tar.bz2 | |
error.c (gfc_buffer_error, [...]): Use bool not
2014-12-06 Tobias Burnus <burnus@net-b.de>
Manuel López-Ibáñez <manu@gcc.gnu.org>
* error.c (gfc_buffer_error, gfc_error_flag_test): Use bool not
* int.
(buffer_flag): Remove static variable.
(buffered_p): Add static variable.
(gfc_error_init_1): Call gfc_buffer_error.
(gfc_warning_1, gfc_warning, gfc_warning_now_1, gfc_error,
gfc_error_now_1): Update for static variable change.
* gfortran.h (gfc_buffer_error, gfc_error_flag_test): Update
prototype.
* parse.c (use_modules, decode_specification_statement,
next_fixed, next_statement, match_deferred_characteristics):
Update calls.
* decl.c (gfc_match_data_decl): Ditto.
* match.c (gfc_match_name): Ditto.
Co-Authored-By: Manuel López-Ibáñez <manu@gcc.gnu.org>
From-SVN: r218449
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; |