Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-16.f
blob: 323d6c958f076bafb7b5cb90d47e147fd95056ea [
file
] [
log
] [
blame
]
SUBROUTINE BFN
(
X
,
BF
)
DIMENSION BF
(
13
)
DIMENSION FACT
(
17
)
DO
70
M
=
0
,
LAST
XF
=
1
IF
(
M
.
NE
.
0
)
XF
=
FACT
(
M
)
Y
=
Y
+
XF
70
CONTINUE
BF
(
1
)=
Y
END