integer*1 one
       integer*2 two
       parameter (one=1)
       parameter (two=2)
       select case (I)
       case (one)
       case (two)
       end select
       end