[Bug fortran/41539] Calling function which takes CLASS: Rank comparison does not work

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2009-10-02 08:42 -------
I think the problem occurs in decl.c's

static gfc_try
encapsulate_class_symbol (gfc_typespec *ts, symbol_attribute *attr,
                          gfc_array_spec **as)
{
  [...]
  if (fclass == NULL)
    {
      [...]
      c->attr.dimension = attr->dimension;
      c->as = (*as);
    }
  [...]
  attr->allocatable = attr->pointer = attr->dimension = 0;
  (*as) = NULL;  /* XXX */
  [...]
}

which is called as:
  if (sym->ts.type == BT_CLASS)
    encapsulate_class_symbol (&sym->ts, &sym->attr, &sym->as);


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41539