diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-04-27 12:32:42 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-04-27 12:32:42 -0400 |
| commit | a56c06d8c916bf2b3199db40f31a07f48824b076 (patch) | |
| tree | 061b99c51f257e0b06848f4d1b7fb913b8aef104 | |
| parent | 1c6ab44ef793f6b243a344eba7f7883b727f734a (diff) | |
| download | gcc-a56c06d8c916bf2b3199db40f31a07f48824b076.zip gcc-a56c06d8c916bf2b3199db40f31a07f48824b076.tar.gz gcc-a56c06d8c916bf2b3199db40f31a07f48824b076.tar.bz2 | |
intrinsic.texi (AND, [...]): Fixed examples.
2007-04-27 Daniel Franke <franke.daniel@gmail.com>
* intrinsic.texi (AND, FPUT, FPUTC, MODULO, OR, SET_EXPONENT,
XOR): Fixed examples.
From-SVN: r124223
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 22 |
2 files changed, 16 insertions, 11 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c57a876..e005198 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2007-04-27 Daniel Franke <franke.daniel@gmail.com> + * intrinsic.texi (AND, FPUT, FPUTC, MODULO, OR, SET_EXPONENT, + XOR): Fixed examples. + +2007-04-27 Daniel Franke <franke.daniel@gmail.com> + * intrinsic.texi (PRODUCT, RESHAPE, SPACING, SPREAD, SUM, SYSTEM_CLOCK, TRANSFER, UNPACK): New. (DATE_AND_TIME, CPU_TIME, RRSPACING): Added cross references. diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 4f4ed67..bb2d6e2 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -985,7 +985,7 @@ cross-promotion of the arguments. @item @emph{Example}: @smallexample PROGRAM test_and - LOGICAL :: T = .TRUE., F = ..FALSE. + LOGICAL :: T = .TRUE., F = .FALSE. INTEGER :: a, b DATA a / Z'F' /, b / Z'3' / @@ -3767,7 +3767,7 @@ Non-elemental subroutine @item @emph{Example}: @smallexample PROGRAM test_fput - CHARACTER(len=*) :: str = "gfortran" + CHARACTER(len=10) :: str = "gfortran" INTEGER :: i DO i = 1, len_trim(str) CALL fput(str(i:i)) @@ -3818,7 +3818,7 @@ Non-elemental subroutine @item @emph{Example}: @smallexample PROGRAM test_fputc - CHARACTER(len=*) :: str = "gfortran" + CHARACTER(len=10) :: str = "gfortran" INTEGER :: fd = 42, i OPEN(UNIT = fd, FILE = "out", ACTION = "WRITE", STATUS="NEW") @@ -7020,7 +7020,7 @@ program test_modulo print *, modulo(17,-3) print *, modulo(17.5,-5.5) -end program test_mod +end program @end smallexample @end table @@ -7369,7 +7369,7 @@ after cross-promotion of the arguments. @item @emph{Example}: @smallexample PROGRAM test_or - LOGICAL :: T = .TRUE., F = ..FALSE. + LOGICAL :: T = .TRUE., F = .FALSE. INTEGER :: a, b DATA a / Z'F' /, b / Z'3' / @@ -8471,11 +8471,11 @@ it is @code{FRACTION(X) * RADIX(X)**I}. @item @emph{Example}: @smallexample -program test_setexp - real :: x = 178.1387e-4 - integer :: i = 17 - print *, set_exponent(x), fraction(x) * radix(x)**i -end program test_setexp +PROGRAM test_setexp + REAL :: x = 178.1387e-4 + INTEGER :: i = 17 + PRINT *, SET_EXPONENT(x, i), FRACTION(x) * RADIX(x)**i +END PROGRAM @end smallexample @end table @@ -9928,7 +9928,7 @@ after cross-promotion of the arguments. PROGRAM test_xor LOGICAL :: T = .TRUE., F = .FALSE. INTEGER :: a, b - DATA a / Z,'F' /, b / Z'3' / + DATA a / Z'F' /, b / Z'3' / WRITE (*,*) XOR(T, T), XOR(T, F), XOR(F, T), XOR(F, F) WRITE (*,*) XOR(a, b) |