如何同行输出，而不换行？

li913

http://fcode.cn/code_gen-52-1.html

li913

[Fortran] 纯文本查看 复制代码

 program ex3
    implicit none
    integer num

    read(*,*) num
    call xinghao1(num)
    pause
  end

  subroutine xinghao(num)
    integer ::i
        write(*,"(A)") repeat('*',num)
  end subroutine
  
  subroutine xinghao1(num)
    integer ::i
    do i = 1, num
        write(*,"(A)",advance='no') "*"
    end do
  end subroutine