      function itest(n)
	  ns = 0
      do 10 i = 1, n
10    ns = ns + i
      itest = ns
      return
	  end
	  
      k = itest(10)
      write(6,100) k 
100   format(i10)
      stop
      end