Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dependency_29.f90
blob: 398bf2c7b2547ee2e899638842ce4f2f115831b8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Warray-temporaries"
}
subroutine t1
(
n1
,
n2
,
gfft
,
ufft
)
implicit
none
integer
::
n1
,
n2
,
i
real
::
gfft
(
n1
,
n2
),
ufft
(
n2
)
DO i
=
1
,
n1
gfft
(
i
,:)=
gfft
(
i
,:)*
ufft
(
i
)
END
DO
end
subroutine t1