write(str1,*) str2 将字符串写进字符串

胡文刚

第一
write(str,*) adjustl(str)
如果你把一个变量写入自身，可能会有问题。虽然语法没有明说，但不同编译器实现可能有不同的问题。
建议你换一个变量写入，比如
write(str2,*) adjustl(str)
第二
对于表控格式来说，写入可能会超出str2的定义长度。
建议用a格式符
write(str2,'(a20)') adjustl(str)
第三
直接赋值，效率更高，何必用write？