This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, fortran] PR43945 - [OOP] Derived type with GENERIC: resolved to the wrong specific TBP
- From: Paul Richard Thomas <paul dot richard dot thomas at gmail dot com>
- To: Tobias Burnus <burnus at net-b dot de>
- Cc: fortran at gcc dot gnu dot org, gcc-patches <gcc-patches at gcc dot gnu dot org>, Daniel Kraft <domob1812 at gmail dot com>
- Date: Thu, 13 May 2010 14:23:01 +0200
- Subject: Re: [Patch, fortran] PR43945 - [OOP] Derived type with GENERIC: resolved to the wrong specific TBP
- References: <u2l339c37f21005060905m12a43c8di2e2b68e1ebb64485@mail.gmail.com> <4BE48D62.8050308@net-b.de>
Tobias,
I am finally in a position to commit this one but, on a different
system, it has started segfaulting on my old friend
dynamic_dispatch_5.f03 (and on coarray_8.f90). At the moment, I do
not see why.
Program received signal SIGSEGV, Segmentation fault.
gfc_free_ref_list (p=0x180) at ../../trunk/gcc/fortran/expr.c:561
561 switch (p->type)
Anyway, I'll report back when I have a solution.
Cheers
Paul
On Sat, May 8, 2010 at 12:00 AM, Tobias Burnus <burnus@net-b.de> wrote:
> Paul Richard Thomas wrote:
>> The attached patch is explained by the ChangeLog and the comments.
>> Boostrapped and regtested on RHEL5.4/i686 - OK for trunk and 4.5?
>>
> OK. Thanks for the patch!
>
> Tobias
>> 2010-05-06 ?Paul Thomas ?<pault@gcc.gnu.org>
>>
>> ? ? ? PR fortran/43945
>> ? ? ? * resolve.c (get_declared_from_expr): Move to before
>> ? ? ? resolve_typebound_generic_call. ?Make new_ref and class_ref
>> ? ? ? ignorable if set to NULL.
>> ? ? ? (resolve_typebound_generic_call): Once we have resolved the
>> ? ? ? generic call, check that the specific instance is that which
>> ? ? ? is bound to the declared type.
>>
>> 2010-05-06 ?Paul Thomas ?<pault@gcc.gnu.org>
>>
>> ? ? ? PR fortran/43945
>> ? ? ? * gfortran.dg/generic_23.f03: New test.
>>
>
>
--
The knack of flying is learning how to throw yourself at the ground and miss.
--Hitchhikers Guide to the Galaxy