blob: e10f7b2b7dbc4208b12d1a444bc6ba83641bb8c4 [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-initial
sum = sum + counter
END DO
PRINT *, sum
END PROGRAM IntegerControlVariable