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