8548 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr)  in validate_case_label_expr()  argument
8552   if (e->ts.type != case_expr->ts.type)  in validate_case_label_expr()
8555 		 &e->where, gfc_basic_typename (case_expr->ts.type));  in validate_case_label_expr()
8563   if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind)  in validate_case_label_expr()
8566 		 &e->where, case_expr->ts.kind);  in validate_case_label_expr()
8573   if (e->ts.kind != case_expr->ts.kind)  in validate_case_label_expr()
8574     gfc_convert_type_warn (e, &case_expr->ts, 2, 0);  in validate_case_label_expr()
8611   gfc_expr *case_expr;  in resolve_select()  local
8622       case_expr = code->expr2;  in resolve_select()
8623       if (case_expr->ts.type != BT_INTEGER|| case_expr->rank != 0)  in resolve_select()
8626 		   &case_expr->where);  in resolve_select()
8637   case_expr = code->expr1;  in resolve_select()
8638   type = case_expr->ts.type;  in resolve_select()
8644 		 &case_expr->where, gfc_typename (case_expr));  in resolve_select()
8651   if (!select_type && case_expr->rank != 0)  in resolve_select()
8654 		 "expression", &case_expr->where);  in resolve_select()
8670 					  case_expr->ts.kind) != ARITH_OK)  in resolve_select()
8673 			 gfc_typename (case_expr));  in resolve_select()
8678 					  case_expr->ts.kind) != ARITH_OK)  in resolve_select()
8681 			 gfc_typename (case_expr));  in resolve_select()
8707 		  && case_expr->ts.kind != gfc_kind_max(case_expr, cp->low))  in resolve_select()
8708 		gfc_convert_type_warn (case_expr, &cp->low->ts, 2, 0);  in resolve_select()
8711 		  && case_expr->ts.kind != gfc_kind_max(case_expr, cp->high))  in resolve_select()
8712 		gfc_convert_type_warn (case_expr, &cp->high->ts, 2, 0);  in resolve_select()
8756 	  if (!validate_case_label_expr (cp->low, case_expr)  in resolve_select()
8757 	      || !validate_case_label_expr (cp->high, case_expr))  in resolve_select()