9104   gfc_expr * vptr_expr;  in trans_class_vptr_len_assignment()  local
9140   vptr_expr = gfc_find_and_cut_at_last_class_ref (le);  in trans_class_vptr_len_assignment()
9141   if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok)  in trans_class_vptr_len_assignment()
9144       if (UNLIMITED_POLY (vptr_expr)  in trans_class_vptr_len_assignment()
9145 	  || (vptr_expr->ts.type == BT_DERIVED  in trans_class_vptr_len_assignment()
9146 	      && vptr_expr->ts.u.derived->attr.unlimited_polymorphic))  in trans_class_vptr_len_assignment()
9147 	to_len = trans_get_upoly_len (block, vptr_expr);  in trans_class_vptr_len_assignment()
9148       gfc_add_vptr_component (vptr_expr);  in trans_class_vptr_len_assignment()
9152     vptr_expr = gfc_lval_expr_from_sym (gfc_find_vtab (&le->ts));  in trans_class_vptr_len_assignment()
9154   gfc_conv_expr (&se, vptr_expr);  in trans_class_vptr_len_assignment()
9155   gfc_free_expr (vptr_expr);  in trans_class_vptr_len_assignment()
9167       vptr_expr = (re->expr_type == EXPR_VARIABLE && re->ts.type == BT_CLASS)  in trans_class_vptr_len_assignment()
9170       if (vptr_expr != NULL && vptr_expr->ts.type == BT_CLASS)  in trans_class_vptr_len_assignment()
9175 	      if (UNLIMITED_POLY (vptr_expr)  in trans_class_vptr_len_assignment()
9176 		  || (vptr_expr->ts.type == BT_DERIVED  in trans_class_vptr_len_assignment()
9177 		      && vptr_expr->ts.u.derived->attr.unlimited_polymorphic))  in trans_class_vptr_len_assignment()
9178 		from_len = trans_get_upoly_len (block, vptr_expr);  in trans_class_vptr_len_assignment()
9180 	  gfc_add_vptr_component (vptr_expr);  in trans_class_vptr_len_assignment()
9191 	      vptr_expr = NULL;  in trans_class_vptr_len_assignment()
9200 	      vptr_expr = NULL;  in trans_class_vptr_len_assignment()
9216 	    vptr_expr = gfc_lval_expr_from_sym (gfc_find_vtab (&re->ts));  in trans_class_vptr_len_assignment()
9219 	    vptr_expr = gfc_lval_expr_from_sym (gfc_find_vtab (&le->ts));  in trans_class_vptr_len_assignment()
9222       if (vptr_expr)  in trans_class_vptr_len_assignment()
9226 	  gfc_conv_expr (&se, vptr_expr);  in trans_class_vptr_len_assignment()
9227 	  gfc_free_expr (vptr_expr);  in trans_class_vptr_len_assignment()