diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-12-11 23:14:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-12-11 23:14:45 +0000 |
| commit | 5f94971f7a5ad6a53a89a51a887fa7d3ee7fbe8a (patch) | |
| tree | 982b960730fe59e92f42e77b35659f096fb2a00c /gcc/fortran/io.c | |
| parent | ec06fa34417438285f642d03d6e7c30aa8e548ab (diff) | |
2010-12-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/46705
* gfortran.h: New enum gfc_instring.
(gfc_next_char_literal): Update prototype.
* scanner.c (gfc_next_char_literal): Use new enum. Only give missing
'&' warning for INSTRING_WARN. (gfc_next_char): Use new enum.
(gfc_gobble_whitespace): Likewise.
* io.c (next_char): Use new enum. (next_char_not_space): Likewise.
(format_lex): Likewise.
* match.c (gfc_match_parens): Likewise.
(gfc_match_special_char): Likewise. (gfc_match_name_C): Likewise.
* parse.c (next_fixed): Likewise.
* primary.c (match_hollerith_constant): Likewise.
(next_string_char): Likewise.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@167716 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index e80202fab06..938dc9a9224 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -136,7 +136,7 @@ mode; /* Return the next character in the format string. */ static char -next_char (int in_string) +next_char (gfc_instring in_string) { static gfc_char_t c; @@ -197,7 +197,7 @@ next_char_not_space (bool *error) char c; do { - error_element = c = next_char (0); + error_element = c = next_char (NONSTRING); if (c == '\t') { if (gfc_option.allow_std & GFC_STD_GNU) @@ -374,7 +374,7 @@ format_lex (void) for (;;) { - c = next_char (1); + c = next_char (INSTRING_WARN); if (c == '\0') { token = FMT_END; @@ -383,7 +383,7 @@ format_lex (void) if (c == delim) { - c = next_char (1); + c = next_char (INSTRING_NOWARN); if (c == '\0') { @@ -981,7 +981,7 @@ data_desc: { while (repeat >0) { - next_char (1); + next_char (INSTRING_WARN); repeat -- ; } } |