org.eclipse.photran.core.vpg.tests/refactoring-test-code/remove-real-and-double-precision-loop-counters/nested-do-double-outer-increment-implicit/nested-do-double-outer-increment-implicit.f90.result

! Check that nested DO loop doesn't affect refactoring
! behavior. Select outer DO loop - DOUBLE data type
! and increment behavior - implicit step count.

PROGRAM NestedDoDoubleOuterIncrementImplicit
  DOUBLE PRECISION :: counter, sum, counterin, sumin
  sum = 0.0
  sumin = 0.0
  counter = 1.2
  DO                                            !<<<<< 9, 3, 9, 29, 0, pass
    sum = sum + counter
    DO counterin = 1.2, 1.8, 0.1
      sumin = sumin + counterin
    END DO
    counter = counter + 1
    IF(counter > 1.8) THEN
      EXIT
    END IF
  END DO
  PRINT *, sum
END PROGRAM NestedDoDoubleOuterIncrementImplicit