1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)statst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1044007Sbostic character*24 ctime 1144007Sbostic integer stata(11), statb(11), i1, i2 1244007Sbostic open(1, file='statst.f') 1344007Sbostic i1 = stat('statst.f', stata) 1444007Sbostic i2 = fstat(1, statb) 1544007Sbostic write(*,*) i1, i2, ierrno() 1644007Sbostic write(*,'(8r,2i12)') (stata(i),statb(i),i=1,8) 1744007Sbostic write(*,'(a,2x,a)') (ctime(stata(i)), ctime(statb(i)), i=9,11) 1844007Sbostic end 19