[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / module_naming_1.f90
blob2a2d00b1d30a294088d4864e25b342cb0e1383fc
1 ! { dg-do assemble }
2 ! PR 31144
3 ! Makes sure that our name mangling scheme can't be outwitted
5 ! old scheme
6 module m1
7 contains
8 subroutine m2__m3()
9 end subroutine m2__m3
10 end module m1
12 module m1__m2
13 contains
14 subroutine m3()
15 end subroutine m3
16 end module m1__m2
18 ! New scheme, relies on capitalization
19 module m2
20 contains
21 subroutine m2_MOD_m3()
22 ! mangled to __m2_MOD_m2_mod_m3
23 end subroutine m2_MOD_m3
24 end module m2
26 module m2_MOD_m2
27 contains
28 subroutine m3()
29 ! mangled to __m2_mod_m2_MOD_m3
30 end subroutine m3
31 end module m2_MOD_m2