------- Comment #4 from pault at gcc dot gnu dot org 2008-01-18 09:22 -------
(In reply to comment #3)
> I have a fix for this that I will apply as "obvious" overnight (in the EU,
> that
> is:))
> Paul
....except that it caused a FAIL on one platform and, on another, the testsuite
hung!!! Anyway, it's on the right track and I'll try and sort it out this
weekend:
gfc_check_constructor_type (gfc_expr *e)
{
try t;
cons_state = CONS_START;
gfc_clear_ts (&constructor_ts);
gfc_clear_ts (&e->ts); /* Fixes this bug. */
t = check_constructor_type (e->value.constructor);
if (t == SUCCESS && e->ts.type == BT_UNKNOWN)
e->ts = constructor_ts;
return t;
}
Paul
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34785
