gcc/testsuite/g77.f-torture/compile/20000629-1.f

   1       SUBROUTINE MIST(N, BETA)
   2       IMPLICIT REAL*8 (A-H,O-Z)
   3       INTEGER  IA, IQ, M1
   4       DIMENSION BETA(N)
   5       DO 80 IQ=1,M1
   6          IF (BETA(IQ).EQ.0.0D0) GO TO 120
   7    80 CONTINUE
   8   120 IF (IQ.NE.1) GO TO 160
   9   160 M1 = IA(IQ)
  10       RETURN
  11       END