ここでは、"\\r","\\n","\\r\\n"などの改行記号が入力列に含まれて際の read文からの戻り値を調べています。サンプルとした入力列は、"abc\\rdef\\n\\nABCDEF\\r\\n123456\\neof"です。この入力列は、標準入力(UNIT=5)とファイル経由(UNIT=10)でテストプログラムに入力され、read文で停留入力による読み取りが行われます。

g95 0.91 20080220の場合

標準入力	"abc\\rdef",size=7,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2
ファイル	"abc\\rdef",size=7,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2

標準入力とファイル経由の結果は同じ
単独の"\\r"は1文字として扱う
"\\r\\n"と"\\n"は改行記号扱いで区別できない
複数文字を受け取る場合、改行記号とEOFを区別できない
- 1文字づつ受け取る場合は、EOFを検知する直前が改行記号で無い場合には、size=0,iostat=-2が返って来る
- この例だと、"e",size=1,iostat=0->"o",size=1,iostat=0->"f",size=1,iostat=0->size=0,iostat=-2->EOF検知

gfortran 4.2.4 20080220 (prerelease)の場合

標準入力	"abc",size=3,iostat=-2	"ef",size=2,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2
ファイル	"abc",size=3,iostat=-2	"def",size=3,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2

標準入力からだと"\\r"の次が"\\n"以外の文字の場合に欠落する
- CR-LFを仮定して LFを先読みした後に seekで戻しているが、un-seek-ableなストリームではこの実装はうまく動かない
"\\r\\n"、"\\r"と"\\n"は改行記号扱いで区別できない
複数文字を受け取る場合、改行記号とEOFを区別できない
- 1文字づつ受け取る場合は、改行記号とEOFを区別できる
- この例だと、"e",size=1,iostat=0->"o",size=1,iostat=0->"f",size=1,iostat=0->EOF検知

gfortran 4.3.0 20080221 (prerelease)の場合

標準入力	"abc",size=3,iostat=-2	"ef",size=2,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2
ファイル	"abc",size=3,iostat=-2	"def",size=3,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2

標準入力からだと"\\r"の次が"\\n"以外の文字の場合に欠落する
- CR-LFを仮定して LFを先読みした後に seekで戻しているが、un-seek-ableなストリームではこの実装はうまく動かない
"\\r\\n"、"\\r"と"\\n"は改行記号扱いで区別できない
複数文字を受け取る場合、改行記号とEOFを区別できない
- 1文字づつ受け取る場合は、改行記号とEOFを区別できる
- この例だと、"e",size=1,iostat=0->"o",size=1,iostat=0->"f",size=1,iostat=0->EOF検知
gfortran 4.2.4 20080220 (prerelease)と同じ動作

Intel Fortran Compiler Version 8.1の場合

標準入力	"abc\\rdef",size=7,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2
ファイル	"abc\\rdef",size=7,iostat=-2	"",size=0,iostat=-2	"ABCDEF",size=6,iostat=-2	"123456",size=6,iostat=-2	"eof",size=3,iostat=-2

標準入力とファイル経由の結果は同じ
単独の"\\r"は1文字として扱う
"\\r\\n"と"\\n"は改行記号扱いで区別できない
複数文字を受け取る場合、改行記号とEOFを区別できない
- 1文字づつ受け取る場合は、EOFを検知する直前が改行記号で無い場合には、size=0,iostat=-2が返って来る
- この例だと、"e",size=1,iostat=0->"o",size=1,iostat=0->"f",size=1,iostat=0->size=0,iostat=-2->EOF検知

まとめ

"\\r\\n"と"\\n"が同一視されている
2008/02/20頃のgfortran 4.2.4/4.3.0実装は明らかにおかしい
- 先行するCRに対応するLFを一文字読み込みして探すのは良いとして、LFで無かった際に正しくストリームを巻戻せず入力を失っている(標準入力)
改行記号終端でない入力でのEOF検知の挙動が実装で異なる
- 改行記号によるレコード終端の取り扱いに差か?
- gfortranは、EOFによる暗黙のレコード終端よりEOF検知が優先している
- intel fortran/g95は、EOFによる暗黙のレコード終端によって一度、size=0,iostat=-2(改行〜レコード終端)を返してから、EOFを検知する

つまり、改行区切りなテキスト読み込み(itfgetbuf_)には使えるが、uni-byte stream入力には使えないと言うこと