From d9ace2ef6455807a63ff442327dd913241b226c4 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Mon, 3 Jan 2011 11:26:05 +0100 Subject: [PATCH] intrinsic.texi (LEADZ): Fix example. 2011-01-03 Janus Weil * intrinsic.texi (LEADZ): Fix example. From-SVN: r168415 --- 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 0a7edea70419..44489308bd74 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 f8960b9c5350..695cadd6edd4 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