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

愤怒的三炮 · 发表于 2020-9-15 17:23:28

本帖最后由愤怒的三炮于 2020-9-15 17:24 编辑

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

character*20:: str= '  fortran    '
write(str,*) adjustl(str)
print*, str
end

这样运行时会出错（见下图）；

但如果写成赋值的形式

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

character*20:: str= '   fortran   '
str = adjustl(str)
print*, str
end

就不会有问题。
这是为什么呢？

胡文刚 · 发表于 2020-9-15 21:26:36

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

愤怒的三炮 · 发表于 2020-9-16 09:46:35

胡文刚发表于 2020-9-15 21:26
第一
write(str,*) adjustl(str)
如果你把一个变量写入自身，可能会有问题。虽然语法没有明说，但不同编译 ...

感谢您的回复！
根据您的建议用Simply Fortran试了一下，发现问题就在于表控格式，需要控制格式写入。（adjustl函数需要控制格式，但是trim就可以是表控格式）

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

character*20:: str= '   fortran   '

write(str,*) trim(str) ！不会有问题

print*, str

end

用write将字符串写进字符串的用法我也基本没用过，因为是修改代码而偶然出现的，好奇报错的原因。
如您所言，还是直接赋值最方便。

[文件读写] write(str1,*) str2 将字符串写进字符串

规矩勋章

元老勋章

新人勋章