Move *-*-gnu* pattern below *-*-linux*.
[official-gcc.git] / libf2c / libF77 / r_tanh.c
blob818c6a8451bfb7814f8a33d99919565c1569c72b
1 #include "f2c.h"
3 #ifdef KR_headers
4 double tanh();
5 double r_tanh(x) real *x;
6 #else
7 #undef abs
8 #include <math.h>
9 double r_tanh(real *x)
10 #endif
12 return( tanh(*x) );