Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr68817.f90
blob: 606b4303a1a8d3c017423fa268367a82d2b9269c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O3 -ffast-math"
}
SUBROUTINE TEST
(
A
,
B
,
C
)
DIMENSION B
(
3
),
C
(
1000
,
10
)
DO I
=
1
,
3
I3
=
I
*
3
B
(
1
)
=
B
(
1
)
+
(
C
(
K
,
I3
+
1
)-
A
)
B
(
3
)
=
B
(
3
)
+
(
C
(
K
,
I3
+
3
)-
A
)
ENDDO
END