[Bug fortran/114001] is_contiguous considers unlimited polymorphic dummy always as contiguous

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114001

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code

--- Comment #1 from anlauf at gcc dot gnu.org ---
gfc_is_simply_contiguous has the following code:

  if (expr->ts.type != BT_CLASS
      && ((part_ref
           && !part_ref->u.c.component->attr.contiguous
           && part_ref->u.c.component->attr.pointer)
          || (!part_ref
              && !sym->attr.contiguous
              && (sym->attr.pointer
                  || (sym->as && sym->as->type == AS_ASSUMED_RANK)
                  || (sym->as && sym->as->type == AS_ASSUMED_SHAPE)))))
    return false;

This obviously ignores the CLASS case.