diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e25d4e38124..9110670693a 100644
--- 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 3b81c2db683..f8960b9c535 100644
--- 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