Le 08/10/2026 à 14:36, Paul Richard Thomas a écrit :
The attached patch is trivial, allowing procedure pointer components to
be initaialized to NULL (), and fixes bug13-proc-ptr-comp-init-ice.f90.
Passes regtesting on FC44/x86_64. OK for mainline.
Cheers
Paul
Hello Paul,
the following example is accepted with your patch whereas it is
(correctly) rejected without it. I think we can pick s2 from
rvalue->ts.interface if it's set before giving up and returning.
Mikael
program prog
implicit none
interface
integer function foo(arg)
integer, intent(in) :: arg
end function
integer function bar(arg1, arg2)
integer, intent(in) :: arg1, arg2
end function
end interface
procedure(foo), pointer :: p
procedure(bar), pointer :: q
p => null(q)
end program
