gcc/testsuite/gfortran.fortran-torture/compile/do_1.f90

   1 ! test various forms of the DO statement
   2 ! inspired by PR14066
   3 LOGICAL L
   4 DO i=1,10
   5 END DO
   6 DO 10 i=1,20
   7    DO 20,j=1,10,2
   8 20 CONTINUE
   9 10 END DO
  10 L = .TRUE.
  11 DO WHILE(L)
  12    L = .FALSE.
  13 END DO
  14 DO 50 WHILE(.NOT.L)
  15    L = .TRUE.
  16 50 CONTINUE
  17 DO
  18    DO 30
  19       DO 40
  20 40    CONTINUE
  21 30 END DO
  22 END DO
  23 outer: DO i=1,20
  24    inner: DO,j=i,30
  25       IF (j.EQ.2*i) CYCLE outer
  26    END DO inner
  27 END DO outer
  28 END