git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

intrinsic.texi (LEADZ): Fix example. 

2011-01-03  Janus Weil  <janus@gcc.gnu.org>

	* intrinsic.texi (LEADZ): Fix example.

From-SVN: r168415
This commit is contained in:
Janus Weil 2011-01-03 11:26:05 +01:00
parent 94f95505a0
commit d9ace2ef64
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View 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> 2011-01-02 Janus Weil <janus@gcc.gnu.org>
PR fortran/46408 PR fortran/46408

3
gcc/fortran/intrinsic.texi
View 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}: @item @emph{Example}:
@smallexample @smallexample
PROGRAM test_leadz 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 PROGRAM
@end smallexample @end smallexample