Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr107679.f90
blob: 33a52fb5ef224c3a1b06927003ff14babf43d466 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine s1
(
x
)
integer
,
intent
(
out
)
::
x
end
subroutine s2
(
z
)
integer
,
value
::
z
call s1
(
z
)
end