The GNU Fortran Compiler: FPUTC

Next: FRACTION, Previous: FPUT, Up: Intrinsic Procedures [Contents][Index]

### 8.113 `FPUTC` — Write a single character in stream mode

Description:

  Write a single character in stream mode by bypassing normal formatted output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable.

  This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.

  Note that the `FGET` intrinsic 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.

Standard:

  GNU extension

Class:

  Subroutine, function

Syntax:

  `CALL FPUTC(UNIT, C [, STATUS])`
  `STATUS = FPUTC(UNIT, C)`

Arguments:

  UNIT | The type shall be `INTEGER`.
  C | The type shall be `CHARACTER` and of default kind.
  STATUS | (Optional) status flag of type `INTEGER`. Returns 0 on success, -1 on end-of-file and a system specific positive error code otherwise.

Example:

      PROGRAM test_fputc
        CHARACTER(len=10) :: str = "gfortran"
        INTEGER :: fd = 42, i

        OPEN(UNIT = fd, FILE = "out", ACTION = "WRITE", STATUS="NEW")
        DO i = 1, len_trim(str)
          CALL fputc(fd, str(i:i))
        END DO
        CLOSE(fd)
      END PROGRAM

See also:

  FPUT, FGET, FGETC