diff options
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 |