2084   gfc_expr *tgt_expr = NULL;  in gfc_match_varspec()  local
2117     tgt_expr = sym->assoc->target;  in gfc_match_varspec()
2132       if (!sym->assoc->dangling && tgt_expr)  in gfc_match_varspec()
2134 	   if (tgt_expr->expr_type == EXPR_VARIABLE)  in gfc_match_varspec()
2135 	     gfc_resolve_expr (tgt_expr);  in gfc_match_varspec()
2137 	   ref = tgt_expr->ref;  in gfc_match_varspec()
2159 	   && tgt_expr  in gfc_match_varspec()
2160 	   && tgt_expr->expr_type == EXPR_VARIABLE  in gfc_match_varspec()
2161 	   && sym->ts.u.derived != tgt_expr->ts.u.derived)  in gfc_match_varspec()
2163       gfc_resolve_expr (tgt_expr);  in gfc_match_varspec()
2164       if (tgt_expr->rank)  in gfc_match_varspec()
2165 	sym->ts.u.derived = tgt_expr->ts.u.derived;  in gfc_match_varspec()
2246       permissible = tgt_expr && tgt_expr->symtree && tgt_expr->symtree->n.sym  in gfc_match_varspec()
2247 		    && (tgt_expr->symtree->n.sym->attr.use_assoc  in gfc_match_varspec()
2248 			|| tgt_expr->symtree->n.sym->attr.host_assoc  in gfc_match_varspec()
2249 			|| tgt_expr->symtree->n.sym->attr.if_source  in gfc_match_varspec()
2252 		    || (tgt_expr && tgt_expr->expr_type == EXPR_OP);  in gfc_match_varspec()
2256 	  gfc_resolve_expr (tgt_expr);  in gfc_match_varspec()
2257 	  sym->ts = tgt_expr->ts;  in gfc_match_varspec()