写入fifo（命名管道）

Question

我正在尝试获取一个fortran 90应用程序来打开fifo并将格式化的数据写入其中。 我将其简化为一个最小的示例。 令foo.f90为以下程序：

program foo
  open(1,file='fifo',position='asis',action='write')
  write(1,*)'Hello, world!'
  write(1,*)'Goodbye.'
end program

现在编译并运行程序：

$ gfortran-4.7.1 -o foo foo.f90
$ rm -f fifo
$ ./foo
$ cat fifo
 Hello, world!
$ rm -f fifo
$ mkfifo fifo
$ cat fifo > bar &
[1] 6115
$ strace -o foo.st ./foo
At line 3 of file foo.f90 (unit = 1, file = 'fifo')
Fortran runtime error: Invalid argument
[1]+  Done                    cat fifo > bar
$ tail foo.st
write(3, " Hello, world!\n", 15)        = 15
lseek(3, 0, SEEK_CUR)                   = -1 ESPIPE (Illegal seek)
ftruncate(3, 18446744073709551615)      = -1 EINVAL (Invalid argument)
write(2, "At line 3 of file foo.f90 (unit "..., 52) = 52
write(2, "Fortran runtime error: ", 23) = 23
write(2, "Invalid argument", 16)        = 16
write(2, "\n", 1)                       = 1
close(3)                                = 0
exit_group(2)                           = ?
+++ exited with 2 +++

因此，该程序在写入普通文件时运行良好。 但是，在写入fifo时，它会尝试在首次写入后更改文件大小，但在失败后将终止应用程序。

我对Fortran还是很陌生，所以不知道这是否是gfortran中的错误，还是不确定是否有某种方法可以打开文件来抑制ftruncate syscall。 我宁愿使用格式化的顺序方法：我的行有不同的长度，我宁愿避免在每次write时都指定一个记录号。

Answer 1

这是libgfortran中的一个旧功能 （甚至不敢认为这是一个错误！），它是在补丁版本之前发布的，但是在GCC 4.7分支中重新引入了，尤其是在SVN 版本180701中 。 显然， gfortran开发人员不会使用命名管道来测试其I / O代码。

您应该使用旧的gfortran版本（与4.6.1一起使用）或其他供应商的其他Fortran编译器。 我将向GCC提交错误报告。

Answer 2

使用gfortran 4.7.2-5我遇到了同样的错误。

解决方案是修改OPEN语句，如下所示：

open(1,file='fifo',status='old',action='write',access='stream',form='formatted')

明确指定FORM ='FORMATTED'和ACTION ='STREAM'。