Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
use_14.f90
blob: 63f3dff98b054ef3ef6ebda34b7fa034dfb68f8e [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
34657
!
module
test_mod
interface
subroutine my_sub
(
a
)
real a
end
subroutine
end
interface
end
module
subroutine my_sub
(
a
)
use
test_mod
,
gugu
=>
my_sub
real a
print
*,
a
end
subroutine
END