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