primary.c (match_boz_constant): Add missing break after gfc_error.

	* primary.c (match_boz_constant): Add missing break after gfc_error.

	* gfortran.dg/boz_5.f90: New test.

From-SVN: r105420

gcc/fortran/ChangeLog

+2005-10-14  Jakub Jelinek  <jakub@redhat.com>
+
+	* primary.c (match_boz_constant): Add missing break after gfc_error.
+
 2005-10-12  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/24092

gcc/fortran/primary.c

@@ -351,10 +351,13 @@ match_boz_constant (gfc_expr ** result)
         {
 	case 2:
           gfc_error ("Empty set of digits in binary constant at %C");
+	  break;
 	case 8:
           gfc_error ("Empty set of digits in octal constant at %C");
+	  break;
 	case 16:
           gfc_error ("Empty set of digits in hexadecimal constant at %C");
+	  break;
         default:
 	  gcc_unreachable ();
         }
@@ -367,10 +370,13 @@ match_boz_constant (gfc_expr ** result)
         {
 	case 2:
 	  gfc_error ("Illegal character in binary constant at %C");
+	  break;
 	case 8:
 	  gfc_error ("Illegal character in octal constant at %C");
+	  break;
 	case 16:
 	  gfc_error ("Illegal character in hexadecimal constant at %C");
+	  break;
 	default:
 	  gcc_unreachable ();
 	}

gcc/testsuite/ChangeLog

+2005-10-14  Jakub Jelinek  <jakub@redhat.com>
+
+	* gfortran.dg/boz_5.f90: New test.
+
 2005-10-14  Nathan Sidwell  <nathan@codesourcery.com>
 
 	PR c++/22551

gcc/testsuite/gfortran.dg/boz_5.f90

+! { dg-do compile }
+  integer, dimension (2) :: i
+  i = (/Z'abcde', Z'abcde/)	! { dg-error "Illegal character" }
+end