6554 get_declared_from_expr (gfc_ref **class_ref, gfc_ref **new_ref,  in get_declared_from_expr()  argument
6561   if (class_ref)  in get_declared_from_expr()
6562     *class_ref = NULL;  in get_declared_from_expr()
6576 	  if (class_ref)  in get_declared_from_expr()
6577 	    *class_ref = ref;  in get_declared_from_expr()
6810   gfc_ref *class_ref;  in resolve_typebound_function()  local
6840       get_declared_from_expr (&class_ref, NULL, e, false);  in resolve_typebound_function()
6844       if (class_ref && class_ref->next)  in resolve_typebound_function()
6846 	  gfc_free_ref_list (class_ref->next);  in resolve_typebound_function()
6847 	  class_ref->next = NULL;  in resolve_typebound_function()
6849       else if (e->ref && !class_ref && expr->ts.type != BT_CLASS)  in resolve_typebound_function()
6870   declared = get_declared_from_expr (&class_ref, &new_ref, e, true);  in resolve_typebound_function()
6876   if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type))  in resolve_typebound_function()
6877 	 || (!class_ref && st->n.sym->ts.type != BT_CLASS))  in resolve_typebound_function()
6929   gfc_ref *class_ref;  in resolve_typebound_subroutine()  local
6975       get_declared_from_expr (&class_ref, NULL, code->expr1, false);  in resolve_typebound_subroutine()
6976       if (class_ref && class_ref->next)  in resolve_typebound_subroutine()
6978 	  gfc_free_ref_list (class_ref->next);  in resolve_typebound_subroutine()
6979 	  class_ref->next = NULL;  in resolve_typebound_subroutine()
6981       else if (code->expr1->ref && !class_ref)  in resolve_typebound_subroutine()
7003   get_declared_from_expr (&class_ref, &new_ref, code->expr1, true);  in resolve_typebound_subroutine()
7006   if ((class_ref && gfc_bt_struct (class_ref->u.c.component->ts.type))  in resolve_typebound_subroutine()
7007 	 || (!class_ref && st->n.sym->ts.type != BT_CLASS))  in resolve_typebound_subroutine()