6432 get_declared_from_expr (gfc_ref **class_ref, gfc_ref **new_ref,  in get_declared_from_expr()  argument
6439   if (class_ref)  in get_declared_from_expr()
6440     *class_ref = NULL;  in get_declared_from_expr()
6454 	  if (class_ref)  in get_declared_from_expr()
6455 	    *class_ref = ref;  in get_declared_from_expr()
6688   gfc_ref *class_ref;  in resolve_typebound_function()  local
6718       get_declared_from_expr (&class_ref, NULL, e, false);  in resolve_typebound_function()
6722       if (class_ref && class_ref->next)  in resolve_typebound_function()
6724 	  gfc_free_ref_list (class_ref->next);  in resolve_typebound_function()
6725 	  class_ref->next = NULL;  in resolve_typebound_function()
6727       else if (e->ref && !class_ref && expr->ts.type != BT_CLASS)  in resolve_typebound_function()
6748   declared = get_declared_from_expr (&class_ref, &new_ref, e, true);  in resolve_typebound_function()
6754   if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type))  in resolve_typebound_function()
6755 	 || (!class_ref && st->n.sym->ts.type != BT_CLASS))  in resolve_typebound_function()
6807   gfc_ref *class_ref;  in resolve_typebound_subroutine()  local
6853       get_declared_from_expr (&class_ref, NULL, code->expr1, false);  in resolve_typebound_subroutine()
6854       if (class_ref && class_ref->next)  in resolve_typebound_subroutine()
6856 	  gfc_free_ref_list (class_ref->next);  in resolve_typebound_subroutine()
6857 	  class_ref->next = NULL;  in resolve_typebound_subroutine()
6859       else if (code->expr1->ref && !class_ref)  in resolve_typebound_subroutine()
6881   get_declared_from_expr (&class_ref, &new_ref, code->expr1, true);  in resolve_typebound_subroutine()
6884   if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type))  in resolve_typebound_subroutine()
6885 	 || (!class_ref && st->n.sym->ts.type != BT_CLASS))  in resolve_typebound_subroutine()