FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fortran - fix whitespace issue during parsing of assigned goto

Browse source 
gcc/fortran/ChangeLog:

	PR fortran/102113
	* match.c (gfc_match_goto): Allow for whitespace in parsing list
	of labels.

gcc/testsuite/ChangeLog:

	PR fortran/102113
	* gfortran.dg/goto_9.f90: New test.
This commit is contained in:
Harald Anlauf 2021-08-30 23:07:56 +02:00
parent 79a017c412
commit a7083b83e4
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/fortran/match.c
View file

@ -4079,7 +4079,7 @@ gfc_match_goto (void)
}
while (gfc_match_char (',') == MATCH_YES);
if (gfc_match (")%t") != MATCH_YES)
if (gfc_match (" )%t") != MATCH_YES)
goto syntax;
if (head == NULL)

10
gcc/testsuite/gfortran.dg/goto_9.f90 Normal file
View file

@ -0,0 +1,10 @@
! { dg-do compile }
! { dg-options "-std=legacy" }
! PR fortran/102113 - parsing error in assigned goto
program p
assign 10 to i
goto i,(10,20 )
10 continue
20 continue
end