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
10