diff options
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 7c09b40..d05d603 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -680,7 +680,12 @@ restart: } if (c != '&') - gfc_current_locus = old_loc; + { + if (in_string && gfc_option.warn_ampersand) + gfc_warning ("Missing '&' in continued character constant at %C"); + + gfc_current_locus.nextc--; + } } else { @@ -978,7 +983,7 @@ load_line (FILE * input, char **pbuf, int *pbuflen) if (i >= buflen) { /* Reallocate line buffer to double size to hold the - overlong line. */ + overlong line. */ buflen = buflen * 2; *pbuf = xrealloc (*pbuf, buflen + 1); buffer = (*pbuf)+i; |