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) STOP 1 15end subroutine 16end module 17 18subroutine myfoo (i) 19 integer i 20 21 if (i .ne. 42) STOP 2 22end subroutine 23 24program test 25 use module_interface_2 26 27 call foo (42) 28 call foo (1.0) 29end program 30