https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88669
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu.org
--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Strange.
The code looks like it does the right thing, but the attributes
apparently have not been set correctly. In resolve.c:
│13778 /* F2008, C448. */
│
│13779 if (c->attr.contiguous && (!c->attr.dimension ||
!c->attr.pointer))
│
│13780 {
│
>│13781 gfc_error ("Component %qs at %L has the CONTIGUOUS attribute
but "
│
│13782 "is not an array pointer", c->name, &c->loc);
│
│13783 return false;
│
│13784 }
│
but
(gdb) p c
$2 = (gfc_component *) 0x2689980
(gdb) p c->attr.dimension
$3 = 0
(gdb) p c->attr.pointer
$4 = 0
