mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-29 23:15:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r105420
This commit is contained in:
Jakub Jelinek 2005-10-14 21:40:29 +02:00 committed by Jakub Jelinek
parent b8ad8c93ef
commit 21dac32c3c
4 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
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

6
gcc/fortran/primary.c
View File

@ -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 ();
}

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
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

4
gcc/testsuite/gfortran.dg/boz_5.f90 Normal file
View File

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