From e17c65c260417a2844d261465fcd9ebb424f4b29 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Fri, 31 Dec 2010 18:06:53 +0100 Subject: [PATCH] intrinsic.texi (IANY): Correct section title. 2010-12-31 Janus Weil * intrinsic.texi (IANY): Correct section title. (IALL, IANY, IPARITY): Fix example codes. From-SVN: r168380 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/intrinsic.texi | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e25d4e3..9110670 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-12-31 Janus Weil + + * intrinsic.texi (IANY): Correct section title. + (IALL, IANY, IPARITY): Fix example codes. + 2010-12-31 Thomas Koenig PR fortran/47065 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 3b81c2d..f8960b9 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 -- 2.7.4