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

   1 c { dg-do compile }
   2       SUBROUTINE SWEEP
   3       PARAMETER(MAXDIM=4,MAXVEC=4**3*8,MAXT=20)
   4       REAL(KIND=8) B,W1,W2,BNORM,BINV,WT,W0,C1,C2,R1,R2
   5       DIMENSION B(MAXVEC,0:3),W1(MAXVEC,0:3),W2(MAXVEC,0:3)
   6       DIMENSION BNORM(MAXVEC),BINV(MAXVEC),WT(MAXVEC),W0(MAXVEC)
   7       DIMENSION C1(MAXVEC),C2(MAXVEC),R1(MAXVEC),R2(MAXVEC)
   8       DO 200 ILAT=1,2**IDIM
   9       DO 200 I1=1,IDIM  ! { dg-warning "Obsolescent feature: Shared DO termination" }
  10       DO 220 I2=1,IDIM
  11       CALL INTACT(ILAT,I1,I1,W1)
  12 220   CONTINUE
  13       DO 310 IATT=1,IDIM
  14       DO 311 I=1,100
  15       WT(I)=ONE + C1(I)*LOG(EPS+R1(I))
  16       IF( R2(I)**2 .LE. (ONE-WT(I)**2) )THEN
  17       W0(I)=WT(I)
  18       ENDIF
  19 311   CONTINUE
  20 310   CONTINUE
  21 200   CONTINUE
  22       END