diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-01-03 11:26:05 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-01-03 11:26:05 +0100 |
| commit | d9ace2ef6455807a63ff442327dd913241b226c4 (patch) | |
| tree | e5ce2f977f1f64afcf4d22767f2f83a55f2750d8 | |
| parent | 94f95505a0a48f5be91d9cde3643eda2ed85cd22 (diff) | |
| download | gcc-d9ace2ef6455807a63ff442327dd913241b226c4.zip gcc-d9ace2ef6455807a63ff442327dd913241b226c4.tar.gz gcc-d9ace2ef6455807a63ff442327dd913241b226c4.tar.bz2 | |
intrinsic.texi (LEADZ): Fix example.
2011-01-03 Janus Weil <janus@gcc.gnu.org>
* intrinsic.texi (LEADZ): Fix example.
From-SVN: r168415
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 3 |
2 files changed, 6 insertions, 1 deletions
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 <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 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 |