1 /*- 2 * Copyright (c) 1991 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.proprietary.c% 9 */ 10 11 #ifndef lint 12 static char sccsid[] = "@(#)no_lg.c 5.2 (Berkeley) 04/12/91"; 13 #endif /* not lint */ 14 15 /* 16 * @(#)no_lg.c 1.2 17 * 18 * ld -lg ... 19 * then /usr/lib/libg.a is loaded and defines _dbsubc as non-zero. 20 * Otherwise, this is loaded defining it as zero. 21 * in main.c, f77_abort() uses this to decide whether or not to call 22 * abort to terminate. 23 */ 24 25 char id_no_lg[] = "@(#)no_lg.c 5.2"; 26 27 int _dbsubc = 0; 28