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