| ! DO loop selected for refactoring must be a controlled | |
| ! DO loop otherwise refactoring will not proceed. | |
| PROGRAM UncontrolledDoLoop | |
| REAL :: counter, sum | |
| sum = 0.0 | |
| counter = 1.2 | |
| DO !<<<<< 8,3,8,5, 0, fail-initial | |
| sum = sum + counter | |
| counter = counter + 0.1 | |
| IF (counter > 1.8) THEN | |
| EXIT | |
| END IF | |
| END DO | |
| PRINT *, sum | |
| END PROGRAM UncontrolledDoLoop |