1! Test generic interfaces declared in modules.
2! We used to get the name mangling wrong for these.
3module module_interface_2
4  interface foo
5    subroutine myfoo (i)
6      integer i
7    end subroutine
8    module procedure bar
9  end interface
10contains
11subroutine bar (r)
12  real r
13
14  if (r .ne. 1.0) call abort ()
15end subroutine
16end module
17
18subroutine myfoo (i)
19  integer i
20
21  if (i .ne. 42) call abort ()
22end subroutine
23
24program test
25  use module_interface_2
26
27  call foo (42)
28  call foo (1.0)
29end program
30