Next: FGETC, Previous: FDATE, Up: Intrinsic Procedures [Contents][Index]
FGET
— Read a single character in stream mode from stdinRead a single character in stream mode from stdin 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.
GNU extension
Subroutine, function
CALL FGET(C [, STATUS]) |
STATUS = FGET(C) |
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. |
PROGRAM test_fget INTEGER, PARAMETER :: strlen = 100 INTEGER :: status, i = 1 CHARACTER(len=strlen) :: str = "" WRITE (*,*) 'Enter text:' DO CALL fget(str(i:i), status) if (status /= 0 .OR. i > strlen) exit i = i + 1 END DO WRITE (*,*) TRIM(str) END PROGRAM