4830 symbols_could_alias (gfc_symbol *lsym, gfc_symbol *rsym, bool lsym_pointer,  in symbols_could_alias()  argument
4834   if (gfc_compare_types (&lsym->ts, &rsym->ts) == 0)  in symbols_could_alias()
4849 	  || (rsym->attr.dummy && !rsym->attr.contiguous  in symbols_could_alias()
4850 	      && (!rsym->attr.dimension  in symbols_could_alias()
4851 		  || rsym->as->type == AS_ASSUMED_SHAPE))))  in symbols_could_alias()
4869   gfc_symbol *rsym;  in gfc_could_be_alias()  local
4876   rsym = rexpr->symtree->n.sym;  in gfc_could_be_alias()
4880   rsym_pointer = rsym->attr.pointer;  in gfc_could_be_alias()
4881   rsym_target = rsym->attr.target;  in gfc_could_be_alias()
4883   if (symbols_could_alias (lsym, rsym, lsym_pointer, lsym_target,  in gfc_could_be_alias()
4887   if (rsym->ts.type != BT_DERIVED && rsym->ts.type != BT_CLASS  in gfc_could_be_alias()
4902       if (symbols_could_alias (lref->u.c.sym, rsym, lsym_pointer, lsym_target,  in gfc_could_be_alias()
4910 				 &rsym->ts))  in gfc_could_be_alias()