Next: UBOUND, Previous: TRIM, Up: Intrinsic Procedures [Contents][Index]
TTYNAM — Get the name of a terminal device.Get the name of a terminal device. For more information, 
see ttyname(3).
This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.
GNU extension
Subroutine, function
| 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