From ad77abf579492171c8f79532cf0aa88be4e6f0f5 Mon Sep 17 00:00:00 2001 From: janus Date: Mon, 3 Jan 2011 10:26:05 +0000 Subject: [PATCH] 2011-01-03 Janus Weil * intrinsic.texi (LEADZ): Fix example. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168415 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/intrinsic.texi | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0a7edea..4448930 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-01-03 Janus Weil + + * intrinsic.texi (LEADZ): Fix example. + 2011-01-02 Janus Weil PR fortran/46408 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index f8960b9..695cadd 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 -- 2.7.4