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

PROGRAM test_isatty INTEGER(kind=1) :: unit DO unit = 1, 10 write(,) isatty(unit=unit) END DO END PROGRAM