summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/select_6.f90
blob: 0e0f05244237f2e47fde356b82ee31e241551c0d (plain)
1
2
3
4
5
6
7
8
9
10
! { 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 "Syntax error in CASE specification" }
        end select
        end