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

! Check that nested DO loop doesn't affect refactoring
! behavior. Select inner DO loop - REAL data type
! and decrement behavior - implicit step count.

PROGRAM NestedDoRealInnerDecrementImplicit
  REAL :: counter, sum, counterin, sumin
  sum = 0.0
  sumin = 0.0
  DO counter = 1.2, 1.8, 0.1
    sum = sum + counter
    counterin = 1.8
    DO                                          !<<<<< 11, 5, 11, 33, 0, pass
      sumin = sumin + counterin
      counterin = counterin - 1
      IF(counterin < 1.2) THEN
        EXIT
      END IF
    END DO
  END DO
  PRINT *, sum
END PROGRAM NestedDoRealInnerDecrementImplicit