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