Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
analyzer
/
pr93405.f90
blob: e2c23753015f4e304527c3c9569b7aa20dfdee22 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
real a
(
10
),
b
(
10
),
c
(
10
)
a
=
0.
b
=
1.
call sum
(
a
,
b
,
c
,
10
)
print
*,
c
(
5
)
end
subroutine sum
(
a
,
b
,
c
,
n
)
integer i
,
n
real a
(
n
),
b
(
n
),
c
(
n
)
do
i
=
1
,
n
c
(
i
)
=
a
(
i
)
+
b
(
i
)
enddo
end