! 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 |