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 "Syntax error in CASE specification" }
9        end select
10        end
11