Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-20.f
blob: d31360d8eebb2668e71969db12279e828d6dc6e6 [
file
] [
log
] [
blame
]
!
{
dg
-
options
"-O3 -ffast-math -std=legacy"
}
DIMENSION FPQR
(
25
,
25
,
25
)
INTEGER P
,
Q
,
R
DO
130
R
=
1
,
N4MAX
,
2
IF
(
P
.
GT
.
1
)
THEN
FPQR
(
P
,
Q
,
R
)=
RM2
*
FPQR
(
P
,
Q
,
R
-
2
)*
REC
(
P
+
Q
+
R
-
2
)
END
IF
130
RM2
=
RM2
+
TWO
END