1! We were incorrectly mangling procedures in interfaces in modules 2 3module module_interface 4 interface 5 subroutine foo () 6 end subroutine foo 7 end interface 8contains 9subroutine cs 10end subroutine 11 12subroutine cproc 13 interface 14 subroutine bar () 15 end subroutine 16 end interface 17 call bar () 18 call foo () 19 call cs () 20end subroutine 21end module 22 23subroutine foo () 24end subroutine 25 26subroutine bar () 27end subroutine 28 29program module_interface_proc 30 use module_interface 31 interface 32 subroutine bar () 33 end subroutine 34 end interface 35 36 call cproc () 37 call foo () 38 call bar () 39end program 40