gcc/fortran/resolve.c

7670   gfc_case *cp, *default_case, *tail, *head;
7724       for (cp = body->ext.block.case_list; cp; cp = cp->next)
7726 	  if (cp->low
7727 	      && gfc_check_integer_range (cp->low->value.integer,
7730 			 "not in the range of %s", &cp->low->where,
7733 	  if (cp->high
7734 	      && cp->low != cp->high
7735 	      && gfc_check_integer_range (cp->high->value.integer,
7738 			 "not in the range of %s", &cp->high->where,
7752 	  for (cp = body->ext.block.case_list; cp; cp = cp->next)
7755 	      if (cp->low == NULL && cp->high == NULL)
7759 	      if (cp->low != NULL && cp->high != NULL
7760 		  && cp->low != cp->high
7761 		  && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0)
7764 	      if (cp->low != NULL
7765 		  && case_expr->ts.kind != gfc_kind_max(case_expr, cp->low))
7766 		gfc_convert_type_warn (case_expr, &cp->low->ts, 2, 0);
7768 	      if (cp->high != NULL
7769 		  && case_expr->ts.kind != gfc_kind_max(case_expr, cp->high))
7770 		gfc_convert_type_warn (case_expr, &cp->high->ts, 2, 0);
7789       for (cp = body->ext.block.case_list; cp; cp = cp->next)
7795 	  if (cp->low == NULL && cp->high == NULL)
7801 			     &default_case->where, &cp->where);
7807 		  default_case = cp;
7814 	  if (!validate_case_label_expr (cp->low, case_expr)
7815 	      || !validate_case_label_expr (cp->high, case_expr))
7822 	      && ((cp->low == NULL || cp->high == NULL)
7823 		  || cp->low != cp->high))
7826 			 "allowed", &cp->low->where);
7831 	  if (type == BT_LOGICAL && cp->low->expr_type == EXPR_CONSTANT)
7834 	      value = cp->low->value.logical == 0 ? 2 : 1;
7839 			     &cp->low->where);
7846 	  if (cp->low != NULL && cp->high != NULL
7847 	      && cp->low != cp->high
7848 	      && gfc_compare_expr (cp->low, cp->high, INTRINSIC_GT) > 0)
7853 			     &cp->where);
7855 	      cp->unreachable = 1;
7866 		  head = tail = cp;
7871 		  tail->right = cp;
7903 	    for (cp = body->ext.block.case_list; cp && cp->next; cp = cp->next)
7905 		if (cp->next->unreachable)
7907 		    gfc_case *n = cp->next;
7908 		    cp->next = cp->next->next;