Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
simplify_cshift_3.f90
blob: 26f54c5431f63cecc0ec089efd299a934e6f8f7c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine foo
()
real
(
4
),
allocatable
,
save
::
tmp
(:,
:)
real
(
4
),
pointer
,
save
::
arr
(:,
:,
:)
integer
::
l
,
m
,
n
tmp
=
(
cshift
(
cshift
(
arr
(:,:,
l
),
m
,
2
),
n
,
1
))
end
subroutine foo