Sign in
gnu
/
gcc
/
a787dfe21c21becea5c7180c4d6fe2c63957633f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-20.f
blob: 795cb1b9209f11e03d298d6fc49a905155fcea42 [
file
] [
log
] [
blame
]
!
{
dg
-
options
"-O3 -ffast-math"
}
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