Next: FLOAT, Previous: FGET, Up: Intrinsic Procedures
FGETC
— Read a single character in stream modeThis intrinsic routine is provided for backwards compatibility with
g77. GNU Fortran provides the Fortran 2003 Stream facility.
Programmers should consider the use of new stream IO feature in new code
for future portability. See also Fortran 2003 status.
CALL FGETC(UNIT, C [, STATUS])
UNIT | The type shall be INTEGER .
|
C | The type shall be CHARACTER .
|
STATUS | (Optional) status flag of type INTEGER . Returns 0 on success,
-1 on end-of-file and a system specific positive error code otherwise.
|
PROGRAM test_fgetc INTEGER :: fd = 42, status CHARACTER :: c OPEN(UNIT=fd, FILE="/etc/passwd", ACTION="READ", STATUS = "OLD") DO CALL fgetc(fd, c, status) IF (status /= 0) EXIT call fput(c) END DO CLOSE(UNIT=fd) END PROGRAM