Commit e17c65c2 by Janus Weil

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
parent 2871536f
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
......
...@@ -5966,7 +5966,7 @@ PROGRAM test_iall ...@@ -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 ...@@ -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 ...@@ -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 ...@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment