PROGRAM DOUBLELOOPPROGRAM 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