diff options
Diffstat (limited to 'gcc')
| -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 |