内部文件使用报错Fortran runtime error: End of record

xk6891

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

program main
implicit none
integer charnum
character,allocatable::smi(:)
!!character(len=30)::smi
character(len=1)sinelem
character(len=2)douelem
charnum=30
allocate(smi(charnum))
smi=''
sinelem="A"
douelem="BB"

write(smi(1:1),"(A1)")sinelem
write(*,*)smi
write(smi(2:3),"(A2)")douelem
write(*,*)smi

end

出现报错

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

 A
At line 16 of file test.f90
Fortran runtime error: End of record

Error termination. Backtrace:

单个字母是可以输入到内部文件的，多个字母就会出现这个错误。
看到有的帖子说是由于动态长度字符串的原因，因此把动态长度的字符串屏蔽掉，采用固定长度的字符串，是正常输出的

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

program main
implicit none
integer charnum
!!character,allocatable::smi(:)
character(len=30)::smi
character(len=1)sinelem
character(len=2)douelem
charnum=30
!!allocate(smi(charnum))
smi=''
sinelem="A"
douelem="BB"

write(smi(1:1),"(A1)")sinelem
write(*,*)smi
write(smi(2:3),"(A2)")douelem
write(*,*)smi

end

输出如下

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

 A
ABB

问题出在哪里？
既然动态长度字符串的内部文件能够输入单个字母，应该不是动态长度与固定长度的问题吧？但也无更好解释

fcode

character,allocatable::smi(:)
这是一个字符数组，注意是数组。
所以 smi(2:3) 也是一个数组，有2个元素，每个元素长度都是1。

character(len=30)::smi
这是一个字符串（单变量）。
所以 smi(2:3) 是一个子字符串，单变量，长度为 2。


你可以用“递延长度字符串”来代替“可分配字符数组”

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

character(len=:) , allocatable :: smi
allocate( character(len=30)::smi )
deallocate(smi)

详解 http://diyanzifuchuan.w.fcode.cn/

xk6891

fcode 发表于 2024-7-19 21:26
character,allocatable::smi(:)
这是一个字符数组，注意是数组。
所以 smi(2:3) 也是一个数组，有2个元素， ...

啊啊啊，对了，这是数组不是字符串。感谢大佬提醒，谢谢