! Check that nested DO loop doesn't affect refactoring
! behavior. Select outer DO loop - DOUBLE data type
! and increment behavior - explicit step count.
! (This test selecting to replace with DO WHILE loop.)

PROGRAM NestedDoDoubleOuterIncrement
  DOUBLE PRECISION :: counter, sum, counterin, sumin
  sum = 0.0
  sumin = 0.0
  counter = 1.2
  DO WHILE (counter <= 1.8)                    !<<<<< 10, 3, 10, 29, 1, pass
    sum = sum + counter
    DO counterin = 1.2, 1.8, 0.1
      sumin = sumin + counterin
    END DO
    counter = counter + 0.1
  END DO
  PRINT *, sum
END PROGRAM NestedDoDoubleOuterIncrement