Return to statst.f CVS log

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

Annotation of 42BSD/usr.lib/libU77/test/statst.f, revision 1.1

1.1     ! root        1:        character*24 ctime
        !             2:        integer stata(11), statb(11), i1, i2
        !             3:        open(1, file='statst.f')
        !             4:        i1 = stat('statst.f', stata)
        !             5:        i2 = fstat(1, statb)
        !             6:        write(*,*) i1, i2, ierrno()
        !             7:        write(*,'(8r,2i12)') (stata(i),statb(i),i=1,8)
        !             8:        write(*,'(a,2x,a)') (ctime(stata(i)), ctime(statb(i)), i=9,11)
        !             9:        end

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