2 ! Test mismatched type kinds in a select statement.
4 integer(kind=1) i ! kind = 1, -128 <= i < 127
7 case (1_4) ! kind = 4, reachable
8 if (i /= 1_4) call abort
9 case (2_8) ! kind = 8, reachable
10 if (i /= 2_8) call abort
11 case (200) ! kind = 4, unreachable because of range of i
14 if (i /= 3) call abort