PROGRAM SQUARES

        INTEGER*8 SQ1, SQ2, SQ3
        INTEGER*8 TEMP, DIFF1, DIFF2
    
        DIFF1 = 1
        DIFF2 = 2
        TEMP = 1
        SQ1 = TEMP
        DIFF1 = DIFF2 + DIFF1
        TEMP = DIFF1 + TEMP
        SQ2 = TEMP
        DIFF1 = DIFF2 + DIFF1
        TEMP = DIFF1 + TEMP
        SQ3 = TEMP
        PRINT *, SQ1, SQ2, SQ3
        END