! Check that nested DO loop doesn't affect refactoring | |
! behavior. Select outer DO loop - REAL data type | |
! and decrement behavior - explicit step count. | |
! (This test selecting to replace with DO WHILE loop.) | |
PROGRAM NestedDoRealOuterIncrement | |
REAL :: counter, sum, counterin, sumin | |
sum = 0.0 | |
sumin = 0.0 | |
DO counter = 1.2, 1.8, 0.1 !<<<<< 10, 3, 10, 29, 1, pass | |
sum = sum + counter | |
DO counterin = 1.2, 1.8, 0.1 | |
sumin = sumin + counterin | |
END DO | |
END DO | |
PRINT *, sum | |
END PROGRAM NestedDoRealOuterIncrement |