Return to trunctst.f CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libI77 / test

Annotation of 42BSD/usr.lib/libI77/test/trunctst.f, revision 1.1

1.1     ! root        1:        program trutst
        !             2:        integer ftell
        !             3:        external ftell
        !             4: 
        !             5:        rewind 1
        !             6:        write(1,*) "This is line A."
        !             7:        write(1,*) "This is line B."
        !             8:        write(1,*) "This is line C."
        !             9:        write(1,*) "This is line D."
        !            10:        backspace 1
        !            11:        endfile 1
        !            12:        call system ("cat fort.1")
        !            13:        write(*,*) "---"
        !            14:        rewind 1
        !            15:        write(1,*) "This is line E."
        !            16:        write(1,*) "This is line F."
        !            17:        close(1)
        !            18:        call system ("cat fort.1")
        !            19:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.