gcc/fortran/decl.c

10429   gfc_symbol *sym, *gensym;
10518   if (gfc_get_symbol (name, NULL, &gensym))
10521   if (!gensym->attr.generic && gensym->ts.type != BT_UNKNOWN)
10523       if (gensym->ts.u.derived)
10525 		   "of %s", gensym->name, gfc_typename (&gensym->ts));
10528 		   gensym->name);
10532   if (!gensym->attr.generic
10533       && !gfc_add_generic (&gensym->attr, gensym->name, NULL))
10536   if (!gensym->attr.function
10537       && !gfc_add_function (&gensym->attr, gensym->name, NULL))
10540   if (gensym->attr.dummy)
10543 		 name, &gensym->declared_at);
10547   sym = gfc_find_dt_in_generic (gensym);
10559       gfc_get_symbol (gfc_dt_upper_string (gensym->name), NULL, &sym);
10560       sym->name = gfc_get_string ("%s", gensym->name);
10561       head = gensym->generic;
10567       gensym->generic = intr;
10568       gensym->attr.if_source = IFSRC_DECL;
10584 	   && gensym->attr.access != ACCESS_UNKNOWN
10585 	   && !gfc_add_access (&sym->attr, gensym->attr.access,
10590       && gensym->attr.access == ACCESS_UNKNOWN)
10591     gensym->attr.access = sym->attr.access;