From 21dac32c3c6e6a26fef2639662a1bff50166e58d Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Fri, 14 Oct 2005 21:40:29 +0200 Subject: 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 | 4 ++++ gcc/fortran/primary.c | 6 ++++++ 2 files changed, 10 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 86aeeae..7f26375 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-10-14 Jakub Jelinek + + * primary.c (match_boz_constant): Add missing break after gfc_error. + 2005-10-12 Paul Thomas PR fortran/24092 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 (); } -- cgit v1.1