gcc/testsuite/gfortran.dg/select_6.f90

   1 ! { dg-do compile }
   2 ! PR fortran/27457
   3 ! This lead to a segfault previously.
   4         implicit none
   5         integer(kind=1) :: i
   6         real :: r(3)
   7         select case (i)
   8         case (129) r(4) = 0 { dg-error "Expected the name" }
   9         end select
  10         end