Next: UBOUND, Previous: TRIM, Up: Intrinsic Procedures
TTYNAM — Get the name of a terminal device.ttyname(3).
     This intrinsic is provided in both subroutine and function forms;
however, only one form can be used in any given program unit.
     
| CALL TTYNAM(UNIT, NAME) | 
| NAME = TTYNAM(UNIT) | 
| UNIT | Shall be a scalar INTEGER(*). | 
| NAME | Shall be of type CHARACTER(*). | 
          PROGRAM test_ttynam
            INTEGER :: unit
            DO unit = 1, 10
              IF (isatty(unit=unit)) write(*,*) ttynam(unit)
            END DO
          END PROGRAM