blob: ff5e24186be6bdded0b5d76b0a4b808e888187ec [file] [log] [blame]
! 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-final
sum = sum + counter
counter = counter + 0.1
IF (counter > 1.8) THEN
EXIT
END IF
END DO
PRINT *, sum
END PROGRAM UncontrolledDoLoop