ISATTY — Whether a unit is a terminal device. ¶Determine whether a unit is connected to a terminal device.
GNU extension
Function
RESULT = ISATTY(UNIT)
| UNIT | Shall be a scalar INTEGER. |
Returns .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