Merge from mainline.
[official-gcc.git] / gcc / testsuite / gfortran.dg / select_6.f90
blob2d995b0e237be679bef81797052d8ab33a997e62
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 "Unclassifiable" }
9 end select
10 end