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