FGETC (The GNU Fortran Compiler) (original) (raw)

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