repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git]
/
old-autovect-branch
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
20000629-1.f
blob
e369efb4d5bb0230df57f4bd22155ef0378a841a
1
c { dg-do compile }
2
SUBROUTINE
MIST
(
N
,
BETA
)
3
IMPLICIT REAL
(
kind
=
8
) (
A
-
H
,
O
-
Z
)
4
INTEGER
IA
,
IQ
,
M1
5
DIMENSION
BETA
(
N
)
6
DO
80
IQ
=
1
,
M1
7
IF
(
BETA
(
IQ
).
EQ
.0.0
D0
)
GO TO
120
8
80
CONTINUE
9
120
IF
(
IQ
.
NE
.1
)
GO TO
160
10
160
M1
=
IA
(
IQ
)
11
RETURN
12
END