path: root/testsuite/tests/lib/IO/hFileSize001.hs

import System.IO

-- !!! test hFileSize

main = do
    h  <- openFile "hFileSize001.hs" ReadMode
    sz <- hFileSize h
    print sz