diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-12-31 18:06:53 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-12-31 18:06:53 +0100 |
| commit | e17c65c260417a2844d261465fcd9ebb424f4b29 (patch) | |
| tree | 66e6311dc6b7b4675fdd8126b6484cd6bc51ef6d /gcc | |
| parent | 2871536fc3472a2ae3374217c4c49219a89f6d65 (diff) | |
| download | gcc-e17c65c260417a2844d261465fcd9ebb424f4b29.zip gcc-e17c65c260417a2844d261465fcd9ebb424f4b29.tar.gz gcc-e17c65c260417a2844d261465fcd9ebb424f4b29.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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 |