https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90430

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|---                         |INVALID

--- Comment #4 from janus at gcc dot gnu.org ---
(In reply to janus from comment #3)
> As in Fortran 2008, internal and dummy procedures are allowed only in
> procedure pointer assignments, but not in proc-ptr initialization.

The following valid program works around this restriction in the Fortran
standard:

  implicit none
  interface
    function f() result(i)
      integer i
    end function
  end interface
  procedure(f), pointer :: g
  g=>h
contains
  function h() result(j)
    integer j
    j=1
  end function
end


I'll close this PR as invalid, if you don't mind ...

Reply via email to