1! { dg-do run }
2! Test mismatched type kinds in a select statement.
3program select_5
4  integer(kind=1) i          ! kind = 1, -128 <= i < 127
5  do i = 1, 3
6    select case (i)
7
8    ! kind = 4, reachable
9    case (1_4)
10      if (i /=  1_4) call abort
11
12    ! kind = 8, reachable
13    case (2_8)
14      if (i /= 2_8) call abort
15
16    ! kind = 4, unreachable because of range of i
17    case (200)                       ! { dg-warning "not in the range" }
18      call abort
19
20    case default
21      if (i /= 3) call abort
22    end select
23  end do
24end program select_5
25