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