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