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

program test_fnum integer :: i open (unit=10, status = "scratch") i = fnum(10) print *, i close (10) end program test_fnum