6160 copy_ts_from_selector_to_associate (gfc_expr *associate, gfc_expr *selector)  in copy_ts_from_selector_to_associate()  argument
6171   ref = selector->ref;  in copy_ts_from_selector_to_associate()
6175   if (selector->ts.type == BT_CLASS  in copy_ts_from_selector_to_associate()
6176       && CLASS_DATA (selector)  in copy_ts_from_selector_to_associate()
6177       && CLASS_DATA (selector)->as  in copy_ts_from_selector_to_associate()
6178       && CLASS_DATA (selector)->as->type == AS_ASSUMED_RANK)  in copy_ts_from_selector_to_associate()
6181       assoc_sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as);  in copy_ts_from_selector_to_associate()
6184   else if (selector->ts.type == BT_CLASS  in copy_ts_from_selector_to_associate()
6185 	   && CLASS_DATA (selector)  in copy_ts_from_selector_to_associate()
6186 	   && CLASS_DATA (selector)->as  in copy_ts_from_selector_to_associate()
6207 	selector->rank = CLASS_DATA (selector)->as->rank;  in copy_ts_from_selector_to_associate()
6209 	selector->rank = ref->u.ar.dimen;  in copy_ts_from_selector_to_associate()
6211 	selector->rank = 0;  in copy_ts_from_selector_to_associate()
6213       rank = selector->rank;  in copy_ts_from_selector_to_associate()
6239   if (selector->ts.type == BT_CLASS)  in copy_ts_from_selector_to_associate()
6243       assoc_sym->ts.u.derived = CLASS_DATA (selector)  in copy_ts_from_selector_to_associate()
6244 	? CLASS_DATA (selector)->ts.u.derived : selector->ts.u.derived;  in copy_ts_from_selector_to_associate()
6257   top->selector = sel;  in select_type_push()
6273   gfc_symbol *selector = select_type_stack->selector;  in select_intrinsic_set_tmp()  local
6279   if (selector->ts.type == BT_CLASS && !selector->attr.class_ok)  in select_intrinsic_set_tmp()
6301   if (selector->ts.type == BT_CLASS  in select_intrinsic_set_tmp()
6302       && (CLASS_DATA (selector)->attr.dimension  in select_intrinsic_set_tmp()
6303 	  || CLASS_DATA (selector)->attr.codimension))  in select_intrinsic_set_tmp()
6306       sym->attr.dimension = CLASS_DATA (selector)->attr.dimension;  in select_intrinsic_set_tmp()
6307       sym->attr.codimension = CLASS_DATA (selector)->attr.codimension;  in select_intrinsic_set_tmp()
6308       sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as);  in select_intrinsic_set_tmp()
6326   gfc_symbol *selector = select_type_stack->selector;  in select_type_set_tmp()  local
6351       if (selector->ts.type == BT_CLASS && selector->attr.class_ok  in select_type_set_tmp()
6352 	  && selector->ts.u.derived && CLASS_DATA (selector))  in select_type_set_tmp()
6355 		= CLASS_DATA (selector)->attr.class_pointer;  in select_type_set_tmp()
6358 	  if (CLASS_DATA (selector)->attr.dimension  in select_type_set_tmp()
6359 	      || CLASS_DATA (selector)->attr.codimension)  in select_type_set_tmp()
6362 		    = CLASS_DATA (selector)->attr.dimension;  in select_type_set_tmp()
6364 		    = CLASS_DATA (selector)->attr.codimension;  in select_type_set_tmp()
6365 	      if (CLASS_DATA (selector)->as->type != AS_EXPLICIT)  in select_type_set_tmp()
6366 		sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as);  in select_type_set_tmp()
6370 		  sym->as->rank = CLASS_DATA (selector)->as->rank;  in select_type_set_tmp()
6520   gfc_symbol *selector = select_type_stack->selector;  in select_rank_set_tmp()  local
6558   if (selector->ts.type == BT_CLASS)  in select_rank_set_tmp()
6560       sym->ts.u.derived = CLASS_DATA (selector)->ts.u.derived;  in select_rank_set_tmp()
6561       sym->attr.pointer = CLASS_DATA (selector)->attr.pointer;  in select_rank_set_tmp()
6562       sym->attr.allocatable = CLASS_DATA (selector)->attr.allocatable;  in select_rank_set_tmp()
6563       sym->attr.target = CLASS_DATA (selector)->attr.target;  in select_rank_set_tmp()
6568 	  sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as);  in select_rank_set_tmp()
6583       sym->attr.pointer = selector->attr.pointer;  in select_rank_set_tmp()
6584       sym->attr.allocatable = selector->attr.allocatable;  in select_rank_set_tmp()
6585       sym->attr.target = selector->attr.target;  in select_rank_set_tmp()
6589 	  sym->as = gfc_copy_array_spec (selector->as);  in select_rank_set_tmp()
7017   c->ts = select_type_stack->selector->ts;  in gfc_match_rank_is()