PROGRAM DOUBLELOOP

IMPLICIT NONE

INTEGER :: i, j, n, sum

n=3

sum=0

FirstDo: DO i=2, n

SecondDo: DO j=i, i+2

sum=sum+i*j

END Do SecondDo

END DO FirstDo

PRINT *, "i= ", i, ", j= ", j, ", sum= ", sum

END PROGRAM DOUBLELOOP