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

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.