http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52038
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |mikael at gcc dot gnu.org
--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-01-29
12:04:35 UTC ---
> Added (accidentally) with Rev. 183620 of 2012-01-27. The function is part of
> the (uncommitted) patch for PR 50981.
AFAICT it was introduced to simplify constructs such as
+ if ((sym->as != NULL && sym->ts.type != BT_CLASS)
+ || (sym->ts.type == BT_CLASS && sym->attr.class_ok
+ && CLASS_DATA (sym)->as))
or
+ e->rank = sym->ts.type == BT_CLASS
+ ? CLASS_DATA (sym)->as->rank : sym->as->rank;
(see r183622) to
if (symbol_as (sym) != NULL)
...
gfc_array_spec *as = symbol_as (sym);
e->rank = as->rank;
CCed Mikael Morin as a reminder to provide a prototype;-)
