Then, the patch is OK for trunk :-)
Thanks for putting this right - it's obviously my cock-up!
Cheers
Paul
On 15 October 2013 22:20, Tobias Burnus <bur...@net-b.de> wrote:
> Hi Paul,
>
>
> Paul Richard Thomas wrote:
>>
>> Have you checked that:
>>
>> subroutine sub(a)
>> class(*),pointer :: a
>> a => null()
>> end subroutine
>>
>> does not give an error? I think that it is why the check was introduced.
>
>
> I haven't checked it in particular, but was relying that some test in the
> library would test for it. Additionally, gfc_expr_attr() takes care to set
> for BT_CLASS "pointer" only for class_pointer - which I also checked before
> submittal.
>
> In any case, your test case compiles and "grep '=>'" finds the following
> NULL initializations:
>
> unlimited_polymorphic_1.f03: u2 => NULL()
> unlimited_polymorphic_1.f03: u2 => NULL(aptr)
>
> Tobias
--
The knack of flying is learning how to throw yourself at the ground and miss.
--Hitchhikers Guide to the Galaxy
