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