Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/frontend-passes.cc

Lines Matching defs:symtree
421       fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
618   return e->symtree->n.sym->attr.fe_temp;
664   if (e->symtree && e->symtree->n.sym->ts.u.cl
665       && e->symtree->n.sym->ts.u.cl->length
666       && e->symtree->n.sym->ts.u.cl->length->expr_type == EXPR_CONSTANT)
667     return gfc_copy_expr (e->symtree->n.sym->ts.u.cl->length);
737   gfc_get_sym_tree ("__internal_len", current_ns, &fcn->symtree, false);
738   fcn->symtree->n.sym->ts = fcn->ts;
739   fcn->symtree->n.sym->attr.flavor = FL_PROCEDURE;
740   fcn->symtree->n.sym->attr.function = 1;
741   fcn->symtree->n.sym->attr.elemental = 1;
742   fcn->symtree->n.sym->attr.referenced = 1;
743   fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
744   gfc_commit_symbol (fcn->symtree->n.sym);
761   gfc_symtree *symtree;
784   if (gfc_get_sym_tree (name, ns, &symtree, false) != 0)
787   symbol = symtree->n.sym;
833 	       && e->symtree->n.sym->ts.type == BT_CHARACTER
857   result->symtree = symtree;
1167   return expr1->symtree->n.sym == expr2->symtree->n.sym;
1272 	      || stack_top->iter->var->symtree != start->symtree)
1278 		if (iters[j] && iters[j]->var->symtree == start->symtree)
1307 		  || stack_top->iter->var->symtree
1308 		  != start->value.op.op1->symtree)
1981   gfc_get_sym_tree ("__internal_len_trim", current_ns, &fcn->symtree, false);
1982   fcn->symtree->n.sym->ts = fcn->ts;
1983   fcn->symtree->n.sym->attr.flavor = FL_PROCEDURE;
1984   fcn->symtree->n.sym->attr.function = 1;
1985   fcn->symtree->n.sym->attr.elemental = 1;
1986   fcn->symtree->n.sym->attr.referenced = 1;
1987   fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE;
1988   gfc_commit_symbol (fcn->symtree->n.sym);
2222   if (a->symtree->n.sym->attr.allocatable)
2348       if (a->expr && a->expr->symtree && a->expr->symtree->n.sym == do_var)
2394       if (co->expr1->symtree && co->expr1->symtree->n.sym == do_var)
2401 	  && co->ext.iterator->var->symtree->n.sym == do_var)
2416 	  && co->ext.open->iostat->symtree->n.sym == do_var)
2423 	  && co->ext.close->iostat->symtree->n.sym == do_var)
2435 			      co->ext.inquire->a->symtree->n.sym == do_var) \
2453 	  if (co->expr1 && co->expr1->symtree
2454 	      && co->expr1->symtree->n.sym == do_var)
2461 	  if (co->ext.dt && co->ext.dt->iostat && co->ext.dt->iostat->symtree
2462 	      && co->ext.dt->iostat->symtree->n.sym == do_var)
2468 	  if (co->expr1 && co->expr1->symtree
2469 	      && co->expr1->symtree->n.sym == do_var)
2495 	  if (a->expr && a->expr->symtree && a->expr->symtree->n.sym == do_var)
2624 	      info.do_var = cl->ext.iterator->var->symtree->n.sym;
2655 	      do_sym = cl->ext.iterator->var->symtree->n.sym;
2657 	      if (a->expr && a->expr->symtree && f->sym
2658 		  && a->expr->symtree->n.sym == do_sym)
2666 				   co->symtree->n.sym->name);
2673 				   co->symtree->n.sym->name);
2736   if (ex->symtree->n.sym != d->sym)
2848 	      do_sym = dl->ext.iterator->var->symtree->n.sym;
3008 	  info.do_var = dl->ext.iterator->var->symtree->n.sym;
3038 	  do_sym = dl->ext.iterator->var->symtree->n.sym;
3040 	  if (a->expr && a->expr->symtree
3041 	      && a->expr->symtree->n.sym == do_sym)
3048 			       expr->symtree->n.sym->name);
3054 			       expr->symtree->n.sym->name);
3745   gfc_symtree *symtree;
3757   if (gfc_get_sym_tree (name, ns, &symtree, false) != 0)
3762   symbol = symtree->n.sym;
3776   i->symtree = symtree;
4935   gfc_get_sym_tree (blas_name, current_ns, &(call->symtree), true);
4936   call->symtree->n.sym->attr.subroutine = 1;
4937   call->symtree->n.sym->attr.procedure = 1;
4938   call->symtree->n.sym->attr.flavor = FL_PROCEDURE;
4939   call->resolved_sym = call->symtree->n.sym;
5081   return sym == expr->symtree->n.sym;
5171       ind[i].sym = fa->var->symtree
5797   if (e->symtree && e->symtree->n.sym->attr.subroutine)
5922   sym = expr->symtree->n.sym;
OpenGrok
