1       integer*1 one
2       integer*2 two
3       parameter (one=1)
4       parameter (two=2)
5       select case (I)
6       case (one)
7       case (two)
8       end select
9       end
10
11