TTYNAM (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_ttynam INTEGER :: unit DO unit = 1, 10 IF (isatty(unit=unit)) write(,) ttynam(unit) END DO END PROGRAM