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