BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libU77 / test / bitst.f

diff --git a/usr/src/usr.bin/f77/libU77/test/bitst.f b/usr/src/usr.bin/f77/libU77/test/bitst.f
index 1c042e4..e78701c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/bitst.f
+++ b/usr/src/usr.bin/f77/libU77/test/bitst.f
@@ -1,3 +1,14 @@
+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      @(#)bitst.f     5.2 (Berkeley) 4/12/91
+C
+

        logical bit
        i = 0
        call bis(30, i)
        logical bit
        i = 0
        call bis(30, i)