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

喵几

想要实现输入一个数字，在同行输出若干个星号。可是循环时每输出一个星号就会换行，应该怎么修改程序呢？

program ex3
    implicit none
    integer num

    read(*,*) num
    call xinghao(num)
    end

    subroutine xinghao(num)
    integer ::i
    do i=1,num,1
        write(*,"(A1)") "*"
    end do
    end

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