1.4.16.2 fgetc：从指定逻辑单元中获取下一个字符 (Sun Studio 12：Fortran 库参考)

Sun Studio 12：Fortran 库参考

1.4.16.2 `fgetc`：从指定逻辑单元中获取下一个字符

该函数的调用方式如下所示：

*`INTEGER4 fgetc` status `= fgetc(` `lunit``,` `char` `)`**
`lunit`	*`INTEGER4`**	输入	逻辑单元
`char`	`字符`	输出	下一个字符
返回值	*`INTEGER4`**	输出	`status`=-1：文件结束 `status`>0：系统错误代码或 `f95` I/O 错误代码

示例：使用 fgetc 从 tfgetc.data 中获取每个字符；请注意换行 (Octal 012)：

       character char
       INTEGER*4 fgetc, status
       open( unit=1, file=’tfgetc.data’ )
       status = 0
       do while ( status .eq. 0 )
          status = fgetc( 1, char )
          write(*, ’(i3, o4.3)’) status, char
       end do
       end

编译之后，运行以上源代码的样例如下：

demo% cat tfgetc.data
ab
yz
demo% a.out
0 141       ”a’ read
0 142       ”b’ read
0 012       linefeed read
0 171       ”y’ read
0 172       ”z’ read
0 012       linefeed read
-1 012      CONTROL-D read
demo%

对于逻辑单元，请勿将正常的 Fortran 输入与 fgetc() 混在一起。

另请参见：getc(3S)、intro(2) 和 perror(3F)。