1*47942Sbostic /*- 2*47942Sbostic * Copyright (c) 1991 The Regents of the University of California. 3*47942Sbostic * All rights reserved. 4*47942Sbostic * 5*47942Sbostic * This code is derived from software contributed to Berkeley by 6*47942Sbostic * Computer Consoles Inc. 7*47942Sbostic * 8*47942Sbostic * %sccs.include.proprietary.c% 929957Smckusick */ 1029957Smckusick 11*47942Sbostic #ifndef lint 12*47942Sbostic static char sccsid[] = "@(#)no_lg.c 5.2 (Berkeley) 04/12/91"; 13*47942Sbostic #endif /* not lint */ 14*47942Sbostic 1529957Smckusick /* 1629957Smckusick * @(#)no_lg.c 1.2 1729957Smckusick * 1829957Smckusick * ld -lg ... 1929957Smckusick * then /usr/lib/libg.a is loaded and defines _dbsubc as non-zero. 2029957Smckusick * Otherwise, this is loaded defining it as zero. 2129957Smckusick * in main.c, f77_abort() uses this to decide whether or not to call 2229957Smckusick * abort to terminate. 2329957Smckusick */ 2429957Smckusick 2529957Smckusick char id_no_lg[] = "@(#)no_lg.c 5.2"; 2629957Smckusick 2729957Smckusick int _dbsubc = 0; 28