program main
   implicit none 
   integer :: k,sum 
   k = 1 
   sum = 0 
6  sum = sum + k 
   k = k + 1
   if (k .le. 100) goto 6
   print*, "sum = ", sum 
   stop  
   end program main