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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e25d4e38124e8d20ffabe0c9b1756545c2bdc4f1..9110670693a7d7aa93264c0453b5ca324a19bb3f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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>
 
        PR fortran/47065

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