[PATCH] Fix FIXME in call handling of the alias-oracle

[Janus Weil]

2009/6/25 Richard Guenther <rguenther@suse.de>:
>
> This exposes TBAA issues in the Fortran frontend, notably
> gfortran.dg/proc_ptr_result_1.f90 will now segfault.  Reduced
> testcase:
>
> program proc_ptr_14
> implicit none
> procedure(integer),pointer :: p,p2
> p => k(p2)
> if (p(-10)/=p2(-10)) call abort()
> contains
>  function k(arg)
>    procedure(),pointer :: k,arg
>    k => iabs
>    arg => k
>  end function
> end

This part of the test case is invalid anyway (k can not be implicitly
typed and must be a procedure pointer to a subroutine, so it cannot be
associated with iabs). I'm working on this right now (cf. PR
39997/40541).

Cheers,
Janus