intrinsic.texi (LEADZ): Fix example.
authorJanus Weil <janus@gcc.gnu.org>
Mon, 3 Jan 2011 10:26:05 +0000 (11:26 +0100)
committerJanus Weil <janus@gcc.gnu.org>
Mon, 3 Jan 2011 10:26:05 +0000 (11:26 +0100)
2011-01-03  Janus Weil  <janus@gcc.gnu.org>

* intrinsic.texi (LEADZ): Fix example.

From-SVN: r168415

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.texi

index 0a7edea7041901f619c7a39abaed0c6495fb582d..44489308bd74972a8b8f4f64fee823f400d68305 100644 (file)
@@ -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
index f8960b9c535063cdf0ee389c2ef0be9896fa8c58..695cadd6edd47ae3ffc39986823073233e20e472 100644 (file)
@@ -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