end
! f : (((double -> char(3)), double) -> char(3)) -> char(*)
!        1012        22
function f(g) result(q)
  implicit none
  !                   23
  character(len=*) :: q
  interface
    ! g : ((double -> char(3)), double) -> char(3)
    !                         3133 36
    character(len=3) function g(h, x)
      interface
        ! h : double -> char(3)
        !                         3537
        character(len=3) function h(x)
          !                               43
          double precision, intent(in) :: x
        end function h !<<< 22
      end interface
      !                               39
      double precision, intent(in) :: x
    !            18
    end function g
  end interface
! 3
  q = 'This is terrible'
!            14
end function f
!                18   23                  43
integer function g(); g = 3; end function g