OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* arith.c: Fix comment typos. 

From-SVN: r81912
This commit is contained in:
Steve Kargl 2004-05-16 11:26:25 +00:00 committed by Paul Brook
parent 861464a0fb
commit 1ab106cdc4
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-05-16 Steve Kargl <sgk@troutmask.apl.washington.edu>
* arith.c: Fix comment typos.
2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/13742

8
gcc/fortran/arith.c
View File

@ -87,7 +87,7 @@ int gfc_index_integer_kind;
We first get the argument into the range 0.5 to 1.5 by successive
multiplications or divisions by e. Then we use the series:
ln(x) = (x-1) - (x-1)^/2 + (x-1)^3/3 - (x-1)^4/4 + ...
ln(x) = (x-1) - (x-1)^2/2 + (x-1)^3/3 - (x-1)^4/4 + ...
Because we are expanding in powers of (x-1), and 0.5 < x < 1.5, we
have -0.5 < (x-1) < 0.5. Ignoring the harmonic term, this means
@ -179,7 +179,7 @@ common_logarithm (mpf_t * arg, mpf_t * result)
x = Nln2 + r
Then we obtain exp(r) from the McLaurin series.
Then we obtain exp(r) from the Maclaurin series.
exp(x) is then recovered from the identity
exp(x) = 2^N*exp(r). */
@ -266,7 +266,7 @@ exponential (mpf_t * arg, mpf_t * result)
x= N*2pi + r
Then we obtain sin(r) from the McLaurin series. */
Then we obtain sin(r) from the Maclaurin series. */
void
sine (mpf_t * arg, mpf_t * result)
@ -1173,7 +1173,7 @@ gfc_arith_neqv (gfc_expr * op1, gfc_expr * op2, gfc_expr ** resultp)
/* Make sure a constant numeric expression is within the range for
it's type and kind. Note that there's also a gfc_check_range(),
its type and kind. Note that there's also a gfc_check_range(),
but that one deals with the intrinsic RANGE function. */
arith