     program main
     implicit none
     integer limit
     parameter(limit=10)
     integer counter
     integer ans
     DATA ans /0/

     Do 100, counter=2, limit, 2
100  ans = ans + counter
     write(*,*) ans

    stop 
    end