program Calculates10 
         implicit none
         integer :: a , sum_10      
         write(*,*) " Calculate 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10"
 
         a=1
         sum_10=0 

             do a=1 , 10   
               sum_10=sum_10+a
             end do
          write(*,*)"The answer of 1+2+3+4+5+6+7+8+9+10 is" , sum_10

        stop 
        end program Calculates10