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

re PR fortran/27553 ([4.1 only] Testsuite ICE with -Wunused-labels)

Browse Source 
PR fortran/27553
	* parse.c (next_free): Return instead of calling decode_statement
	upon error.
	* gfortran.dg/label_5.f90: New test.

From-SVN: r113712
This commit is contained in:
Francois-Xavier Coudert 2006-05-11 23:37:10 +02:00 committed by François-Xavier Coudert
parent 64c9036718
commit e983d070ff
4 changed files with 18 additions and 0 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 @@
2006-05-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/27553
* parse.c (next_free): Return instead of calling decode_statement
upon error.
2005-05-10 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/27470

1
gcc/fortran/parse.c
View File

@ -439,6 +439,7 @@ next_free (void)
if (!gfc_is_whitespace (c))
gfc_error_now ("Non-numeric character in statement label at %C");
return ST_NONE;
}
else
{

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-05-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/27553
* gfortran.dg/label_5.f90: New test.
2006-05-11 Joseph S. Myers <joseph@codesourcery.com>
* lib/target-supports.exp (check_effective_target_powerpc_fprs,

6
gcc/testsuite/gfortran.dg/label_5.f90 Normal file
View File

@ -0,0 +1,6 @@
! { dg-do compile }
! { dg-options "-Wall" }
! PR fortran/27553
program pr27553
10: a=10 ! { dg-error "character in statement" }
end program