OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/71686 (ICE on broken character continuation)

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2016-06-29 18:48:37 +00:00
parent ee446d9fbb
commit b5f58440d2
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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.
2016-06-29 Cesar Philippidis <cesar@codesourcery.com>
* openmp.c (match_oacc_clause_gang): Rename to ...

8
gcc/fortran/scanner.c
View File

@ -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 = ' ';