From: Janus Weil <janus@gcc.gnu.org>
Date: Mon, 3 Jan 2011 10:26:05 +0000 (+0100)
Subject: intrinsic.texi (LEADZ): Fix example.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d9ace2ef6455807a63ff442327dd913241b226c4;p=gcc.git

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 0a7edea7041..44489308bd7 100644
--- 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 f8960b9c535..695cadd6edd 100644
--- 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