date and time created 90/06/25 14:07:21 by bostic

SCCS-vsn: usr.bin/f77/libU77/test/statst.f 5.1

diff --git a/usr/src/usr.bin/f77/libU77/test/statst.f b/usr/src/usr.bin/f77/libU77/test/statst.f
new file mode 100644 (file)
index 0000000..6790a72
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/test/statst.f
@@ -0,0 +1,9 @@
+       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