1! { dg-do assemble }
2! PR 31144
3! Makes sure that our name mangling scheme can't be outwitted
4
5! old scheme
6module m1
7contains
8  subroutine m2__m3()
9  end subroutine m2__m3
10end module m1
11
12module m1__m2
13contains
14  subroutine m3()
15  end subroutine m3
16end module m1__m2
17
18! New scheme, relies on capitalization
19module m2
20contains
21  subroutine m2_MOD_m3()
22    ! mangled to __m2_MOD_m2_mod_m3
23  end subroutine m2_MOD_m3
24end module m2
25
26module m2_MOD_m2
27contains
28  subroutine m3()
29    ! mangled to __m2_mod_m2_MOD_m3
30  end subroutine m3
31end module m2_MOD_m2
32