我知道$ edit描述符不在标准中，建议使用advance="no"，但是这个小例子表明它们有不同的行为（使用ifort而不是gfortran）并且我没有＆＃39理解为什么（它不会让我感到烦恼，但如果有人有解释我感兴趣！）。
program p
use sleep_mod
implicit none
integer :: i
character(len=80) :: mymsg
mymsg = 'H e l l o w o r l d ! W e l c o m e - B i e n v e n u e - W i l l k o m m e n'
!
!- Write the characters of "mymsg" on the same line with a time delay between them:
!
write(*,*)
do i = 1, len_trim(mymsg)
call usleep (onesec/4)
write(*,'(a1,$)') mymsg(i:i) ! ok w/ gfortran, ok w/ ifort
! write(*,'(a1)',advance='no') mymsg(i:i) ! ok w/ gfortran, KO w/ ifort
end do
write(*,'(/)')
end program p
sleep_mod模块如下：
module sleep_mod
use iso_c_binding
integer(c_int32_t), parameter :: onesec = 100000_c_int32_t
interface ! found in http://computer-programming-forum.com (by Tobias Burnu)
subroutine usleep (useconds) bind(C)
use iso_c_binding
implicit none
integer(c_int32_t), value :: useconds
end subroutine
end interface
end module sleep_mod
使用$ version，无论是编译器（ifort还是gfortran），结果都是预期的：每个字符打印之间的时间延迟。使用gfortran编译advance='no'但使用ifort编译的版本获得了相同的结果。