xref: /original-bsd/usr.bin/f77/libF77/Usef.c (revision 8d528b7a)
1 /*-
2  * Copyright (c) 1980 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.proprietary.c%
6  */
7 
8 #ifndef lint
9 char copyright[] =
10 "@(#) Copyright (c) 1980 The Regents of the University of California.\n\
11  All rights reserved.\n";
12 #endif /* not lint */
13 
14 #ifndef lint
15 static char sccsid[] = "@(#)Usef.c	1.5 (Berkeley) 04/12/91";
16 #endif /* not lint */
17 
18 /*		returns '-f' if need to use -f to bypass C bug		*/
19 
20 static char *needs_f[] = {
21 	"besj0_", "besj1_", "besjn_", "besy0_", "besy1_", "besyn_",
22 	"c_abs", "erf_", "erfc_", "r_abs", "r_acos", "r_asin",
23 	"r_atan", "r_atn2", "r_cos", "r_cosh", "r_exp", "r_imag",
24 	"r_int", "r_lg10", "r_log", "r_sign", "r_sin",
25 	"r_sinh", "r_sqrt", "r_tan", "r_tanh", "rand_", "random_",
26 	0,
27 	};
28 
main(argc,argv)29 main(argc, argv)
30 int argc;
31 char **argv;
32 {
33 	char **ptr;
34 	float f;
35 
36 	if (sizeof (f + f) != sizeof f)
37 	{
38 		argv++;
39 		ptr = needs_f;
40 		while( *ptr != 0 ) {
41 			if( strcmp( *ptr++, *argv ) == 0 )
42 			{
43 				printf("-f");
44 				exit(0);
45 			}
46 		}
47 	}
48 	printf(" ");
49 	exit(0);
50 }
51