2 ! Test mismatched type kinds in a select statement.
4 integer(kind=1) i ! kind = 1, -128 <= i < 127
10 if (i /= 1_4) call abort
14 if (i /= 2_8) call abort
16 ! kind = 4, unreachable because of range of i
17 case (200) ! { dg-warning "not in the range" }
21 if (i /= 3) call abort