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
2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
use_14.f90
blob
63f3dff98b054ef3ef6ebda34b7fa034dfb68f8e
1
! { dg-do compile }
2
!
3
! PR fortran/34657
4
!
5
module
test_mod
6
interface
7
subroutine
my_sub
(
a
)
8
real
a
9
end subroutine
10
end interface
11
end module
12
13
subroutine
my_sub
(
a
)
14
use
test_mod
,
gugu
=>
my_sub
15
real
a
16
print
*,
a
17
end subroutine
18
19
END