1 C integer byte case with integer byte parameters as case(s)
4 integer *1 one,two,three
5 parameter (one=1,two=2,three=3)
17 C integer halfword case with integer halfword parameters
20 integer *2 one,two,three
21 parameter (one=1,two=2,three=3)
33 C integer case with integer parameters
36 integer *4 one,two,three
37 parameter (one=1,two=2,three=3)
49 C integer double case with integer double parameters
52 integer *8 one,two,three
53 parameter (one=1,two=2,three=3)
65 C integer byte select with integer case
75 C integer halfword with integer case
85 C integer word with integer case
106 C integer doubleword with integer case
131 logical*2 s /.FALSE./
158 C -- regression cases
163 C -- new functionality