diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-07-10 15:25:31 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-07-10 15:25:31 +0000 |
| commit | 5bde96d27e87d819a33236ad3a3ee718fe633d37 (patch) | |
| tree | 21415703fb34923e790c050eaecd31c0d7748265 /libgfortran/intrinsics/c99_functions.c | |
| parent | 3c92a2b888436e11fbf7c78d3e8eb133b6d3fd4e (diff) | |
| download | gcc-5bde96d27e87d819a33236ad3a3ee718fe633d37.zip gcc-5bde96d27e87d819a33236ad3a3ee718fe633d37.tar.gz gcc-5bde96d27e87d819a33236ad3a3ee718fe633d37.tar.bz2 | |
c99_functions.c (ccoshf, [...]): Fix errant minus.
2009-07-10 Steven G. Kargl <kargl@gcc.gnu.org>
* c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
Fix errant minus.
From-SVN: r149479
Diffstat (limited to 'libgfortran/intrinsics/c99_functions.c')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index d4ed17f..63af2a5 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -1165,7 +1165,7 @@ csinhl (long double complex a) #endif -/* cosh(a + i b) = cosh(a) cos(b) - i sinh(a) sin(b) */ +/* cosh(a + i b) = cosh(a) cos(b) + i sinh(a) sin(b) */ #if !defined(HAVE_CCOSHF) #define HAVE_CCOSHF 1 float complex @@ -1176,7 +1176,7 @@ ccoshf (float complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, coshf (r) * cosf (i), - (sinhf (r) * sinf (i))); + COMPLEX_ASSIGN (v, coshf (r) * cosf (i), sinhf (r) * sinf (i)); return v; } #endif @@ -1191,7 +1191,7 @@ ccosh (double complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, cosh (r) * cos (i), - (sinh (r) * sin (i))); + COMPLEX_ASSIGN (v, cosh (r) * cos (i), sinh (r) * sin (i)); return v; } #endif @@ -1206,13 +1206,13 @@ ccoshl (long double complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, coshl (r) * cosl (i), - (sinhl (r) * sinl (i))); + COMPLEX_ASSIGN (v, coshl (r) * cosl (i), sinhl (r) * sinl (i)); return v; } #endif -/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 - i tanh(a) tan(b)) */ +/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 + i tanh(a) tan(b)) */ #if !defined(HAVE_CTANHF) #define HAVE_CTANHF 1 float complex @@ -1224,7 +1224,7 @@ ctanhf (float complex a) rt = tanhf (REALPART (a)); it = tanf (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } @@ -1241,7 +1241,7 @@ ctanh (double complex a) rt = tanh (REALPART (a)); it = tan (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } @@ -1258,7 +1258,7 @@ ctanhl (long double complex a) rt = tanhl (REALPART (a)); it = tanl (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } |