! { dg-do compile }
! Test the fix for PR106999
! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
program p
   type t
      integer :: i
      procedure(g), pointer :: f
   end type
   class(t), allocatable :: y, z
   procedure(g), pointer :: ff
   allocate (z)
   z%i = 42
   z%f => g
   ff => g
   call r(z%f)
   call s(z%f) ! { dg-error "Interface mismatch in dummy procedure" }
   call s(ff)  ! { dg-error "Interface mismatch in dummy procedure" }
contains
   subroutine g(x)
      class(t) :: x
      x%i = 84
   end
   subroutine r(x)
      procedure(g) :: x
      print *, "in r"
      allocate (y)
      call x(y)
      print *, y%i
   end
   subroutine s(x)
      class(*) :: x
   end subroutine
end