Next: ISHFT, Previous: IS_IOSTAT_EOR, 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