module_interface_2.f90   [plain text]

! Test generic interfaces declared in modules.
! We used to get the name mangling wrong for these.
module module_interface_2
  interface foo
    subroutine myfoo (i)
      integer i
    end subroutine
    module procedure bar
  end interface
contains
subroutine bar (r)
  real r

  if (r .ne. 1.0) call abort ()
end subroutine
end module

subroutine myfoo (i)
  integer i

  if (i .ne. 42) call abort ()
end subroutine

program test
  use module_interface_2

  call foo (42)
  call foo (1.0)
end program