在Fortran中,设置advance=“否”,但获取换行符

我在下面编写代码,首先得到N个字符串的数目,然后连接N个字符串,并将其打印出来。我设置了advance=“no”选项,但它会转到newline。 我在这个网站上运行这个代码( https://yukicoder.me/problems/no/597 )

program main
    implicit none
    integer::i,j,k,n
    character(1000)::str,ans
    read*,n
    do i=1,n
        read(*,'(a)')str
        str=trim(str)
        write(*,'(a)',advance='no')str
    end do
    print*,""
end program