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