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