Commit 21dac32c by Jakub Jelinek Committed by Jakub Jelinek

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
parent b8ad8c93
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> 2005-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24092 PR fortran/24092
......
...@@ -351,10 +351,13 @@ match_boz_constant (gfc_expr ** result) ...@@ -351,10 +351,13 @@ match_boz_constant (gfc_expr ** result)
{ {
case 2: case 2:
gfc_error ("Empty set of digits in binary constant at %C"); gfc_error ("Empty set of digits in binary constant at %C");
break;
case 8: case 8:
gfc_error ("Empty set of digits in octal constant at %C"); gfc_error ("Empty set of digits in octal constant at %C");
break;
case 16: case 16:
gfc_error ("Empty set of digits in hexadecimal constant at %C"); gfc_error ("Empty set of digits in hexadecimal constant at %C");
break;
default: default:
gcc_unreachable (); gcc_unreachable ();
} }
...@@ -367,10 +370,13 @@ match_boz_constant (gfc_expr ** result) ...@@ -367,10 +370,13 @@ match_boz_constant (gfc_expr ** result)
{ {
case 2: case 2:
gfc_error ("Illegal character in binary constant at %C"); gfc_error ("Illegal character in binary constant at %C");
break;
case 8: case 8:
gfc_error ("Illegal character in octal constant at %C"); gfc_error ("Illegal character in octal constant at %C");
break;
case 16: case 16:
gfc_error ("Illegal character in hexadecimal constant at %C"); gfc_error ("Illegal character in hexadecimal constant at %C");
break;
default: default:
gcc_unreachable (); gcc_unreachable ();
} }
......
2005-10-14 Jakub Jelinek <jakub@redhat.com>
* gfortran.dg/boz_5.f90: New test.
2005-10-14 Nathan Sidwell <nathan@codesourcery.com> 2005-10-14 Nathan Sidwell <nathan@codesourcery.com>
PR c++/22551 PR c++/22551
! { dg-do compile }
integer, dimension (2) :: i
i = (/Z'abcde', Z'abcde/) ! { dg-error "Illegal character" }
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment