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

intrinsic.texi (IANY): Correct section title. 

2010-12-31  Janus Weil  <janus@gcc.gnu.org>

	* intrinsic.texi (IANY): Correct section title.
	(IALL, IANY, IPARITY): Fix example codes.

From-SVN: r168380
This commit is contained in:
Janus Weil 2010-12-31 18:06:53 +01:00
parent 2871536fc3
commit e17c65c260
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2010-12-31 Janus Weil <janus@gcc.gnu.org>
* intrinsic.texi (IANY): Correct section title.
(IALL, IANY, IPARITY): Fix example codes.
2010-12-31 Thomas Koenig <tkoenig@gcc.gnu.org> 2010-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/47065 PR fortran/47065

12
gcc/fortran/intrinsic.texi
View File

@ -5966,7 +5966,7 @@ PROGRAM test_iall
INTEGER(1) :: a(2) INTEGER(1) :: a(2)
a(1) = b'00100100' a(1) = b'00100100'
a(1) = b'01101010' a(2) = b'01101010'
! prints 00100000 ! prints 00100000
PRINT '(b8.8)', IALL(a) PRINT '(b8.8)', IALL(a)
@ -6028,7 +6028,7 @@ END PROGRAM
@node IANY @node IANY
@section @code{IANY} --- Bitwise XOR of array elements @section @code{IANY} --- Bitwise OR of array elements
@fnindex IANY @fnindex IANY
@cindex array, OR @cindex array, OR
@cindex bits, OR of array elements @cindex bits, OR of array elements
@ -6074,9 +6074,9 @@ PROGRAM test_iany
INTEGER(1) :: a(2) INTEGER(1) :: a(2)
a(1) = b'00100100' a(1) = b'00100100'
a(1) = b'01101010' a(2) = b'01101010'
! prints 01111011 ! prints 01101110
PRINT '(b8.8)', IANY(a) PRINT '(b8.8)', IANY(a)
END PROGRAM END PROGRAM
@end smallexample @end smallexample
@ -6755,9 +6755,9 @@ PROGRAM test_iparity
INTEGER(1) :: a(2) INTEGER(1) :: a(2)
a(1) = b'00100100' a(1) = b'00100100'
a(1) = b'01101010' a(2) = b'01101010'
! prints 10111011 ! prints 01001110
PRINT '(b8.8)', IPARITY(a) PRINT '(b8.8)', IPARITY(a)
END PROGRAM END PROGRAM
@end smallexample @end smallexample