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 | 696abb30d602208b316845bff9974e4b8b6e86ef (patch) | |
| tree | 982b960730fe59e92f42e77b35659f096fb2a00c /gcc/fortran/primary.c | |
| parent | a70de21ffba9c1c8b4c5096bf9faf3deeb054c76 (diff) | |
| download | gcc-696abb30d602208b316845bff9974e4b8b6e86ef.zip gcc-696abb30d602208b316845bff9974e4b8b6e86ef.tar.gz gcc-696abb30d602208b316845bff9974e4b8b6e86ef.tar.bz2 | |
re PR fortran/46705 (Spurious "Missing '&' in continued character constant" warning occurs twice)
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.
From-SVN: r167716
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 1ec677b..da028b4 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -288,7 +288,7 @@ match_hollerith_constant (gfc_expr **result) for (i = 0; i < num; i++) { - gfc_char_t c = gfc_next_char_literal (1); + gfc_char_t c = gfc_next_char_literal (INSTRING_WARN); if (! gfc_wide_fits_in_byte (c)) { gfc_error ("Invalid Hollerith constant at %L contains a " @@ -761,7 +761,7 @@ next_string_char (gfc_char_t delimiter, int *ret) locus old_locus; gfc_char_t c; - c = gfc_next_char_literal (1); + c = gfc_next_char_literal (INSTRING_WARN); *ret = 0; if (c == '\n') @@ -785,7 +785,7 @@ next_string_char (gfc_char_t delimiter, int *ret) return c; old_locus = gfc_current_locus; - c = gfc_next_char_literal (0); + c = gfc_next_char_literal (NONSTRING); if (c == delimiter) return c; |