Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/decl.cc

Lines Matching defs:symtree
291       && new_var->expr->symtree == NULL)
298   sym = new_var->expr->symtree->n.sym;
379   gfc_symtree *symtree;
411       /* If a parameter inquiry ends up here, symtree is NULL but **result
413       if ((*result)->symtree == NULL
427       if ((*result)->symtree->n.sym->attr.save
428 	  && (*result)->symtree->n.sym->attr.target)
439   if (gfc_find_sym_tree (name, NULL, 1, &symtree))
442   sym = symtree->n.sym;
457     return gfc_match_structure_constructor (dt_sym, symtree, result);
664 	  && new_data->var->iter.var->symtree->n.sym->attr.implied_index == 1
688 		    && e->symtree->n.sym->attr.pointer != 1
703 	      && e->symtree->n.sym->attr.pointer)
707 	  if (e->symtree->n.sym->ts.type == BT_DERIVED
708 	      && e->symtree->n.sym->attr.pointer
1095 	      && strcmp((*expr)->symtree->name, "null") != 0))
1135 	  && e->symtree->n.sym->attr.untyped == 1
1137 	      || e->symtree->n.sym->ns->seen_implicit_none == 1
1138 	      || e->symtree->n.sym->ns->parent->seen_implicit_none == 1))
1269    symbol is created in the parent using with symtree node in the
1298 	   only have appeared in a type declaration.  The local symtree
1299 	   is set to point to the module symbol and a unique symtree
1449   /* Module function entries will already have a symtree in
1724      a new symtree and recycling the old symtree with a new symbol...  */
1739   /* ...Otherwise generate a new symtree and new symbol.  */
1744      first letter of the symtree will be in upper case then.  Of
3022 	      && initializer->symtree->n.sym->attr.save == SAVE_NONE
3026 	    initializer->symtree->n.sym->attr.save = SAVE_IMPLICIT;
3333       if (e->symtree)
3334 	ts->interop_kind = e->symtree->n.sym;
3740   gcc_assert (e->symtree);
3741   if (e->symtree->n.sym->attr.pdt_kind
3742       || (*f != 0 && e->symtree->n.sym->attr.pdt_len))
3745 	if (strcmp (e->symtree->n.sym->name, param->name) == 0)
4558      stored in a symtree with the first letter of the name capitalized; the
4559      symtree with the all lower-case name contains the associated
5110 	      /* The actual derived type is stored in a symtree with the first
5111 		 letter of the name capitalized; the symtree with the all
11354       /* See if we already have a binding with this name in the symtree which
OpenGrok
