! Loop control variable declared as an INTEGER. | |
! Refactoring explicitly requires a REAL or DOUBLE | |
! type to proceed. | |
PROGRAM IntegerControlVariable | |
INTEGER :: counter, sum | |
sum = 0 | |
DO counter = 1, 10, 1 !<<<<< 8, 3, 8, 24, 0, fail-final | |
sum = sum + counter | |
END DO | |
PRINT *, sum | |
END PROGRAM IntegerControlVariable |