blob: e4d3d42f2385a7cbcfb53858fc03e2aab436f7d7 [file] [log] [blame]
! 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