diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-06-29 18:48:37 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-06-29 18:48:37 +0000 |
| commit | b5f58440d2eee04513ef790514354825e5cf41b5 (patch) | |
| tree | 4494d90d42c5af06784bff73048288c73b8aec5b /gcc/fortran/scanner.c | |
| parent | ee446d9fbb8226a98a939f070186e4ac3e5e333f (diff) | |
| download | gcc-b5f58440d2eee04513ef790514354825e5cf41b5.zip gcc-b5f58440d2eee04513ef790514354825e5cf41b5.tar.gz gcc-b5f58440d2eee04513ef790514354825e5cf41b5.tar.bz2 | |
re PR fortran/71686 (ICE on broken character continuation)
2016-06-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/71686
* scanner.c (gfc_next_char_literal): Only decrement nextc if it
is not NULL.
From-SVN: r237860
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 6a7a5b6..be9c509 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1416,7 +1416,8 @@ restart: { if (in_string) { - gfc_current_locus.nextc--; + if (gfc_current_locus.nextc) + gfc_current_locus.nextc--; if (warn_ampersand && in_string == INSTRING_WARN) gfc_warning (OPT_Wampersand, "Missing %<&%> in continued character " @@ -1427,7 +1428,10 @@ restart: /* Both !$omp and !$ -fopenmp continuation lines have & on the continuation line only optionally. */ else if (openmp_flag || openacc_flag || openmp_cond_flag) - gfc_current_locus.nextc--; + { + if (gfc_current_locus.nextc) + gfc_current_locus.nextc--; + } else { c = ' '; |