4.4BSD/usr/src/usr.bin/f77/libU77/test/statst.f

C
C Copyright (c) 1980 The Regents of the University of California.
C All rights reserved.
C
C This module is believed to contain source code proprietary to AT&T.
C Use and redistribution is subject to the Berkeley Software License
C Agreement and your Software Agreement with AT&T (Western Electric).
C
C	@(#)statst.f	5.2 (Berkeley) 4/12/91
C

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