Home | History | Annotate | Download | only in fortran

Lines Matching defs:default_case

8749   gfc_case *cp, *default_case, *tail, *head;
8855   default_case = NULL;
8876 	      if (default_case != NULL)
8880 			     &default_case->where, &cp->where);
8886 		  default_case = cp;
9006       /* Prepend the default_case if it is there.  */
9007       if (head != NULL && default_case)
9009 	  default_case->left = NULL;
9010 	  default_case->right = head;
9011 	  head->left = default_case;
9388   gfc_code *class_is = NULL, *default_case = NULL;
9533 	  if (default_case)
9537 			 &default_case->ext.block.case_list->where, &c->where);
9542 	  default_case = body;
9742       if (!default_case)
9751 	  default_case = tail;
9823 	if (default_case->next)
9827 	    new_st->next = default_case->next;
9831 	default_case->next = if_st;