各位大神，fortran输出字符串在哪补空位啊？

空谷幽竹

帮同事看了段程序，自己回来写了个简单的例子，发现不懂fortran了
program cha
character(len=10):: str
str='abcde'
open(11,file='a.txt')
write(11,"(a10)") str
write(11,"(a10)") 'abcde'
end program cha

输出的结果是
abcde*****
*****abcde
“*”表示空格，为何两个不一样啊，输出字符串到底在哪补空格啊？

lysx

估计是编译器的问题吧，按照书上讲的，两个结果应该是一样的。因为域宽10大于字符串实际宽度5，所以应该右对齐左补空格输出！

空谷幽竹

lysx 发表于 2014-8-28 15:30
估计是编译器的问题吧，按照书上讲的，两个结果应该是一样的。因为域宽10大于字符串实际宽度5，所以应该右 ...

我以前也是这么理解的，在左边补空格，但是我用visual fortran 6.6和 ifort 和gfortran上都试过了，出现如题结果，很是费解啊

lqouc

我觉得吧，这两个结果都对。
第一个结果是把5个字符先赋值给一个10位的字符串，这样自然是从左到右的占位方式，输出时也就是左对齐
第二个结果是直接输出一个5位字符串，但是表控要求10位，所以就在左侧补齐。

lightxxia

Fortran在直接输出字符型变量的时候，在规定字段宽度内右对齐左补空格

空谷幽竹

lqouc 发表于 2014-8-28 15:47
我觉得吧，这两个结果都对。
第一个结果是把5个字符先赋值给一个10位的字符串，这样自然是从左到右的占位 ...

恩，明白了，谢谢，我又通过read语句试了下，确实如你所说，定义字符串大小以后，分配给相应大小的内存，无论是“赋值”还是“read” 都会记住后面的空格。输出的时候按照表控格式，左侧补齐输出。
program cha
character(len=10):: str
!str=' abcde'
open(12,file='b.txt')
read(12,*) str
!  read(12,"(a10)") str
open(11,file='a.txt')

write(11,"(a10)") str
write(11,"(a10)") trim(str)
write(11,"(a10)") 'abcde'

end program cha

输出结果是：
abcde*****
*****abcde
*****abcde

空谷幽竹

lightxxia 发表于 2014-8-28 16:01
Fortran在直接输出字符型变量的时候，在规定字段宽度内右对齐左补空格

本质上是这样的，但是遇到了特殊情况，仔细尝试了一下，得到了新的体会，谢谢

roland

太好了，谢谢分享

todaysweather

字符串是右边补空格，但是"a10"是格式说明，左边补空格。