Re: *PING* Re: [Patch, Fortran] PR58658 - add missing pointer-assign check for CLASS(*)

[Tobias Burnus]

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