1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 * 6 * @(#)Usef.c 1.4 02/25/90 7 */ 8 9 /* returns '-f' if need to use -f to bypass C bug */ 10 11 static char *needs_f[] = { 12 "besj0_", "besj1_", "besjn_", "besy0_", "besy1_", "besyn_", 13 "c_abs", "erf_", "erfc_", "r_abs", "r_acos", "r_asin", 14 "r_atan", "r_atn2", "r_cos", "r_cosh", "r_exp", "r_imag", 15 "r_int", "r_lg10", "r_log", "r_sign", "r_sin", 16 "r_sinh", "r_sqrt", "r_tan", "r_tanh", "rand_", "random_", 17 0, 18 }; 19 20 main(argc, argv) 21 int argc; 22 char **argv; 23 { 24 char **ptr; 25 float f; 26 27 if (sizeof (f + f) != sizeof f) 28 { 29 argv++; 30 ptr = needs_f; 31 while( *ptr != 0 ) { 32 if( strcmp( *ptr++, *argv ) == 0 ) 33 { 34 printf("-f"); 35 exit(0); 36 } 37 } 38 } 39 printf(" "); 40 exit(0); 41 } 42