Fix some problems with previous checkin
[official-gcc.git] / libf2c / libF77 / d_sqrt.c
blobb5cf83b946f8472c5596e00207946a6f5b028a7f
1 #include "f2c.h"
3 #ifdef KR_headers
4 double sqrt();
5 double d_sqrt(x) doublereal *x;
6 #else
7 #undef abs
8 #include <math.h>
9 double d_sqrt(doublereal *x)
10 #endif
12 return( sqrt(*x) );