Next: ISHFT, Previous: IRAND, Up: Intrinsic Procedures
ISATTY
— Whether a unit is a terminal device.RESULT = ISATTY(UNIT)
UNIT | Shall be a scalar INTEGER(*) .
|
.TRUE.
if the UNIT is connected to a terminal
device, .FALSE.
otherwise.
PROGRAM test_isatty INTEGER(kind=1) :: unit DO unit = 1, 10 write(*,*) isatty(unit=unit) END DO END PROGRAM