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

	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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9fbde4d3b2249263fa6e62113d2970a73492916f..c301e3e948592ae95c94c74bcf7987d8fea256ed 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 2f358e881be00ce5d4c5ed816642c779b44b2ed0..70c92b764c4dfdfb37afd855c990ba755afa0942 100644 (file)
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -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
        {

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e118354f60ee40f125ef75ade2e9af27d0f50187..434baf52c573f47e9d4477b6c995e00535d838e4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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,

diff --git a/gcc/testsuite/gfortran.dg/label_5.f90 b/gcc/testsuite/gfortran.dg/label_5.f90
new file mode 100644 (file)
index 0000000..1082465
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/label_5.f90
@@ -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