subroutine test(n)
      do 10 i = 1, n
10    write(6,100) i
100   format(i10)
      return
	  end
	  
      call test(10)
      stop
      end