intrinsic.texi (LEADZ): Fix example.

2011-01-03  Janus Weil  <janus@gcc.gnu.org>

	* intrinsic.texi (LEADZ): Fix example.

From-SVN: r168415

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0a7edea7041901f619c7a39abaed0c6495fb582d..44489308bd74972a8b8f4f64fee823f400d68305 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-03  Janus Weil  <janus@gcc.gnu.org>
+
+       * intrinsic.texi (LEADZ): Fix example.
+
 2011-01-02  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/46408

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index f8960b9c535063cdf0ee389c2ef0be9896fa8c58..695cadd6edd47ae3ffc39986823073233e20e472 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -7316,7 +7316,8 @@ If all the bits of @code{I} are zero, the result value is @code{BIT_SIZE(I)}.
 @item @emph{Example}:
 @smallexample
 PROGRAM test_leadz
-  WRITE (*,*) LEADZ(1)  ! prints 8 if BITSIZE(I) has the value 32
+  WRITE (*,*) BIT_SIZE(1)  ! prints 32
+  WRITE (*,*) LEADZ(1)     ! prints 31
 END PROGRAM
 @end smallexample