X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/0f4556f12c8f75078501c9d1338ae7648a97f975..95f51977ddc18faa2e212f30c00a39540b39f325:/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 6ae64dd7bb..29e2b4921e 100644
--- 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>
@@ -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");
-_cleanup();
-abort();
+f77_abort();
 }