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
Last modified: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 467
Valid CSS Valid XHTML 1.0 Strict