[Bug fortran/90430] New: [9 Regression] internal procedure target rejected in initialization

[damian at sourceryinstitute dot org]

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

            Bug ID: 90430
           Summary: [9 Regression] internal procedure target rejected in
                    initialization
           Product: gcc
           Version: 9.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: damian at sourceryinstitute dot org
  Target Milestone: ---

gfortran 9.1.0 gives an error message when compiling the following code, which
I believe is valid and which gfortran 8.3.0 compiles without error:

$cat internal-procedure-target.f90 
  implicit none
  interface
    function f() result(i)
      integer i
    end function
  end interface
  procedure(f), pointer :: g=>h
contains
  function h() result(j)
    integer j
    j=1
  end function
end
$gfortran internal-procedure-target.f90 
internal-procedure-target.f90:7:31:

    7 |   procedure(f), pointer :: g=>h
      |                               1
Error: Internal procedure ‘h’ is invalid in procedure pointer initialization at
(1)
$gfortran --version
GNU Fortran (GCC) 9.1.0