Lines Matching full:select

2 ! Test SELECT CASE Constraints: C1145, C1146, C1147, C1148, C1149
22    select case (grade1)
27    end select
29    select case (grade2)
34    end select
36    select case (grade3)
39    end select
41    select case (name)
45    end select
48   !ERROR: SELECT CASE expression must be integer, logical, or character
49   select case (grade4)
54   end select
56   !ERROR: SELECT CASE expression must be integer, logical, or character
57   select case (score)
60   end select
63   select case (grade3)
68   end select
71   select case (grade2)
72 …ue has type 'CHARACTER(KIND=1,LEN=1_8)' which is not compatible with the SELECT CASE expression's …
75    end select
77   select case (grade1)
78 …!ERROR: CASE value has type 'INTEGER(4)' which is not compatible with the SELECT CASE expression's…
81    end select
83   select case (grade3)
86 …!ERROR: CASE value has type 'INTEGER(4)' which is not compatible with the SELECT CASE expression's…
88   end select
90   select case (grade2)
93 …!ERROR: CASE value has type 'LOGICAL(4)' which is not compatible with the SELECT CASE expression's…
95 …!ERROR: CASE value has type 'REAL(4)' which is not compatible with the SELECT CASE expression's ty…
97 …ue has type 'CHARACTER(KIND=1,LEN=3_8)' which is not compatible with the SELECT CASE expression's …
99   end select
101   select case (ASCII_parm1)
103 …ue has type 'CHARACTER(KIND=4,LEN=1_8)' which is not compatible with the SELECT CASE expression's …
105 …ue has type 'CHARACTER(KIND=2,LEN=1_8)' which is not compatible with the SELECT CASE expression's …
107 …ue has type 'CHARACTER(KIND=4,LEN=6_8)' which is not compatible with the SELECT CASE expression's …
109 …ue has type 'CHARACTER(KIND=2,LEN=6_8)' which is not compatible with the SELECT CASE expression's …
112    end select
115   select case (grade3)
119   end select
122   select case (grade3)
129   end select
131   select case (grade2)
146   end select
148   select case (name)
164    end select
171   select case(i)
174   end select
175   select case(i)
179   end select
184   select case(1_1)
186   !WARNING: CASE value (128_4) overflows type (INTEGER(1)) of SELECT CASE expression
188   !WARNING: CASE value (129_4) overflows type (INTEGER(1)) of SELECT CASE expression
189   !WARNING: CASE value (130_4) overflows type (INTEGER(1)) of SELECT CASE expression
191   !WARNING: CASE value (-130_4) overflows type (INTEGER(1)) of SELECT CASE expression
192   !WARNING: CASE value (-129_4) overflows type (INTEGER(1)) of SELECT CASE expression
200   end select