gcc/testsuite/gfortran.dg/interface_43.f90

   1 ! { dg-do compile }
   2 ! PR fortran/84922
   3 ! This should compile without error.
   4 module foom
   5
   6    implicit none
   7
   8    interface foo
   9       module procedure foo_sngl
  10       module procedure foo_dble
  11    end interface foo
  12
  13    contains
  14
  15       subroutine foo_sngl(n, f, g, h)
  16          integer n
  17          real f, g, h
  18       end subroutine foo_sngl
  19
  20       subroutine foo_dble(n, f, g, h)
  21          integer n
  22          double precision f, g, h
  23       end subroutine foo_dble
  24
  25 end module foom