Lines Matching refs:rsym
4964 symbols_could_alias (gfc_symbol *lsym, gfc_symbol *rsym, bool lsym_pointer,
4968 if (gfc_compare_types (&lsym->ts, &rsym->ts) == 0)
4983 || (rsym->attr.dummy && !rsym->attr.contiguous
4984 && (!rsym->attr.dimension
4985 || rsym->as->type == AS_ASSUMED_SHAPE))))
5003 gfc_symbol *rsym;
5010 rsym = rexpr->symtree->n.sym;
5014 rsym_pointer = rsym->attr.pointer;
5015 rsym_target = rsym->attr.target;
5017 if (symbols_could_alias (lsym, rsym, lsym_pointer, lsym_target,
5021 if (rsym->ts.type != BT_DERIVED && rsym->ts.type != BT_CLASS
5036 if (symbols_could_alias (lref->u.c.sym, rsym, lsym_pointer, lsym_target,
5044 &rsym->ts))