PR fortran/27457
* match.c (match_case_eos): Error out on garbage following
CASE(...).
testsuite/
PR fortran/27457
* gfortran.dg/select_6.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113602
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-05-07 Tobias Schl\81üter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/27457
+ * match.c (match_case_eos): Error out on garbage following
+ CASE(...).
+
2006-05-07 Paul Thomas <pault@gcc.gnu.org>
PR fortran/24813
if (gfc_match_eos () == MATCH_YES)
return MATCH_YES;
+ /* If the case construct doesn't have a case-construct-name, we
+ should have matched the EOS. */
+ if (!gfc_current_block ())
+ return MATCH_ERROR;
+
gfc_gobble_whitespace ();
m = gfc_match_name (name);
+2006-05-07 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/27457
+ * gfortran.dg/select_6.f90: New.
+
2006-05-07 Richard Guenther <rguenther@suse.de>
PR tree-optimization/27136
--- /dev/null
+! { dg-do compile }
+! PR fortran/27457
+! This lead to a segfault previously.
+ implicit none
+ integer(kind=1) :: i
+ real :: r(3)
+ select case (i)
+ case (129) r(4) = 0 { dg-error "Unclassifiable" }
+ end select
+ end