Sign in
gnu
/
gcc
/
bcc2449384f2092cbdf5d6ac2357aeabe3212b2e
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr107865.f90
blob: 6bddb17a1be57eb202599313f1f20c3df1e29150 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O1 -floop-parallelize-all -ftree-parallelize-loops=2"
}
SUBROUTINE FNC
(
F
)
IMPLICIT REAL
(
A
-
H
)
DIMENSION F
(
N
)
DO I
=
1
,
6
DO J
=
1
,
6
IF
(
J
.
NE
.
I
)
THEN
F
(
I
)
=
F
(
I
)
+
1
END
IF
END
DO
END
DO
RETURN
END