repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Update ChangeLog and version files for release
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
module_naming_1.f90
blob
2a2d00b1d30a294088d4864e25b342cb0e1383fc
1
! { dg-do assemble }
2
! PR 31144
3
! Makes sure that our name mangling scheme can't be outwitted
4
5
! old scheme
6
module
m1
7
contains
8
subroutine
m2__m3
()
9
end subroutine
m2__m3
10
end module
m1
11
12
module
m1__m2
13
contains
14
subroutine
m3
()
15
end subroutine
m3
16
end module
m1__m2
17
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
25
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