re PR libfortran/48054 (Documentation for LOG intrinsic function is ambiguous)

	PR fortran/48054
	* intrinsic.texi: Clarify doc of logarithm functions.

From-SVN: r170899

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 62431317440d5bf641ec6b995e7639437ca8b6c6..ac95f2ae84e5b23b0201d3c70d58ff2442b497d5 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR fortran/48054
+       * intrinsic.texi: Clarify doc of logarithm functions.
+
 2011-03-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR fortran/47552

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 28b5fe8ade875bc598beda9825bb403c705b1c8c..a13c83350e4eb5c166480df8388e98ce4c96dea5 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -4285,7 +4285,7 @@ end program test_exit
 @fnindex ZEXP
 @fnindex CDEXP
 @cindex exponential function
-@cindex logarithmic function, inverse
+@cindex logarithm function, inverse
 
 @table @asis
 @item @emph{Description}:
@@ -7766,7 +7766,7 @@ end program test_loc
 
 
 @node LOG
-@section @code{LOG} --- Logarithm function
+@section @code{LOG} --- Natural logarithm function
 @fnindex LOG
 @fnindex ALOG
 @fnindex DLOG
@@ -7774,11 +7774,13 @@ end program test_loc
 @fnindex ZLOG
 @fnindex CDLOG
 @cindex exponential function, inverse
-@cindex logarithmic function
+@cindex logarithm function
+@cindex natural logarithm function
 
 @table @asis
 @item @emph{Description}:
-@code{LOG(X)} computes the logarithm of @var{X}.
+@code{LOG(X)} computes the natural logarithm of @var{X}, i.e. the
+logarithm to the base @math{e}.
 
 @item @emph{Standard}:
 Fortran 77 and later
@@ -7804,9 +7806,9 @@ If @var{X} is @code{COMPLEX}, the imaginary part @math{\omega} is in the range
 @item @emph{Example}:
 @smallexample
 program test_log
-  real(8) :: x = 1.0_8
+  real(8) :: x = 2.7182818284590451_8
   complex :: z = (1.0, 2.0)
-  x = log(x)
+  x = log(x)    ! will yield (approximately) 1
   z = log(z)
 end program test_log
 @end smallexample
@@ -7830,7 +7832,8 @@ end program test_log
 @fnindex ALOG10
 @fnindex DLOG10
 @cindex exponential function, inverse
-@cindex logarithmic function
+@cindex logarithm function with base 10
+@cindex base 10 logarithm function
 
 @table @asis
 @item @emph{Description}: