| /* { dg-do link } */ | |
| /* { dg-require-effective-target ia32 } */ | |
| /* { dg-options "-O2 -march=pentiumpro -fgnu89-inline" } */ | |
| extern __inline double | |
| __expm1 (double __x) | |
| { | |
| double __temp; | |
| __temp -= 1.0; | |
| return __temp; | |
| } | |
| extern __inline double | |
| __sgn1 (double __x) | |
| { | |
| return __x >= 0.0 ? 1.0 : -1.0; | |
| } | |
| double | |
| tanh (double __x) | |
| { | |
| register double __exm1 = __expm1 (__x); | |
| return __exm1 / (__exm1 + 2.0) * __sgn1 (-__x); | |
| } | |
| int | |
| main () | |
| { | |
| return tanh (3.45) != 0; | |
| } |