diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2005-10-14 21:40:29 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-10-14 21:40:29 +0200 |
| commit | 21dac32c3c6e6a26fef2639662a1bff50166e58d (patch) | |
| tree | 077b8b73ab21d03e9277f933925e340ccc528a37 /gcc/fortran/primary.c | |
| parent | b8ad8c93effa24b68de1287428844f5b6025d593 (diff) | |
| download | gcc-21dac32c3c6e6a26fef2639662a1bff50166e58d.zip gcc-21dac32c3c6e6a26fef2639662a1bff50166e58d.tar.gz gcc-21dac32c3c6e6a26fef2639662a1bff50166e58d.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 76eed6b..e3e8127 100644 --- a/gcc/fortran/primary.c +++ b/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 (); } |