BSD 4_3 release

[unix-history] / usr / src / usr.lib / libF77 / subout.c

diff --git a/usr/src/usr.lib/libF77/subout.c b/usr/src/usr.lib/libF77/subout.c
index 6ae64dd..29e2b49 100644 (file)
--- a/usr/src/usr.lib/libF77/subout.c
+++ b/usr/src/usr.lib/libF77/subout.c
@@ -1,5 +1,9 @@
 /*
 /*

- *     "@(#)subout.c   1.1"
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *     @(#)subout.c    5.1     6/7/85

  */
 
 #include <stdio.h>
  */
 
 #include <stdio.h>


@@ -18,6 +22,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1
 for(i = 0 ; i < 6  && *varn!=' ' ; ++i)
        putc(*varn++, stderr);
 fprintf(stderr, ".\n");
 for(i = 0 ; i < 6  && *varn!=' ' ; ++i)
        putc(*varn++, stderr);
 fprintf(stderr, ".\n");

-_cleanup();
-abort();
+f77_abort();

 }
 }