! { dg-do compile }
! PR fortran/84922
! This should compile without error.
module foom

   implicit none

   interface foo
      module procedure foo_sngl
      module procedure foo_dble
   end interface foo

   contains

      subroutine foo_sngl(n, f, g, h)
         integer n
         real f, g, h
      end subroutine foo_sngl

      subroutine foo_dble(n, f, g, h)
         integer n
         double precision f, g, h
      end subroutine foo_dble

end module foom