gcc/testsuite/gfortran.dg/g77/20000629-1.f

   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.0D0) GO TO 120
   8    80 CONTINUE
   9   120 IF (IQ.NE.1) GO TO 160
  10   160 M1 = IA(IQ)
  11       RETURN
  12       END