Sign in
gnu
/
gcc
/
04a040d907a83af54e0a98bdba5bfabc0ef4f700
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
simplify_cshift_2.f90
blob: 04a61557afedf018bf25d32d267f32e8408dd5ed [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine foo
(
u
,
n
,
fl
)
implicit
none
integer n
real u
(
5
,
n
),
fl
(
5
,
n
),
wl
(
5
,
n
)
real c
c
=
1
wl
=
u
fl
=
cshift
(
c
*
wl
,
1
,
2
)
end
subroutine foo