呼叫时错误

发布于 2025-02-12 04:23:23 字数 367 浏览 1 评论 0原文

试图打开一些文件时，应用程序会导致一些I/O错误。该应用程序很大，有数十个子例程＆amp;模块和跳过其中一个没有解决问题，因为另一个会导致类似的问题。我参加了其中一个子例程，添加了一些行（以获取额外的信息），重新编译并重新运行。结果是环境变量似乎缺失或错误。例如，当我尝试使用呼叫get_environment_variable（'pwd'，pwd'，pwd）并打印出PWD的值（定义为contrafe> targine（len = 128）），我得到了错误fortran运行时错误：记录的结尾。我也尝试了CWD，但结果相同。似乎代码中的某些内容正在改变这些环境变量或使它们无法访问，但是我无法将其手指放在什么或如何查明原始问题上。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

泼猴你往哪里跑 2025-02-19 04:23:23

内存损坏可能会导致代码中任何地方的意外后果。除非您提供问题的“最低可再现例子”，否则将不可能给出正确的答案。

但是，关于您的错误消息：编译器告诉您您正在阅读的字符变量pwd太短（很容易是数百个字符）。

我建议您首先查询该字符变量的长度，然后使用分配字符串存储它并使用status检查一切都正确

integer :: char_length,ierr
character(:), allocatable :: pwd

! Get string length of variable PWD
call get_environment_variable('PWD',length=char_length)

if (char_length<=0) stop 'environment does not contain PWD variable'

! Allocate dynamic string
allocate(character(len=char_length) :: pwd)

! Get its value
call get_environment_variable('PWD',value=pwd,status=ierr)

! Check success
select case (ierr)
   case (0); ! all right, do nothing
   case (1); stop 'PWD does not exist'
   case (2); stop 'this compiler does not support environment variables'
end select

Memory corruption could cause unintended consequences anywhere in the code. It will be impossible to give a right answer unless you provide a "minimum reproducible example" of your problem.

Regarding your error message though: the compiler is telling you that the character variable you're reading PWD in is too short (could be easily hundreds of characters).

I suggest you first query the LENGTH of that character variable, then use an allocatable string to store it and use STATUS to check that everything went right

integer :: char_length,ierr
character(:), allocatable :: pwd

! Get string length of variable PWD
call get_environment_variable('PWD',length=char_length)

if (char_length<=0) stop 'environment does not contain PWD variable'

! Allocate dynamic string
allocate(character(len=char_length) :: pwd)

! Get its value
call get_environment_variable('PWD',value=pwd,status=ierr)

! Check success
select case (ierr)
   case (0); ! all right, do nothing
   case (1); stop 'PWD does not exist'
   case (2); stop 'this compiler does not support environment variables'
end select

回复收藏 0 原文

~没有更多了~