diff options
| author | Mark Eggleston <mark.eggleston@codethink.com> | 2019-08-23 09:31:48 +0000 |
|---|---|---|
| committer | Mark Eggleston <markeggleston@gcc.gnu.org> | 2019-08-23 09:31:48 +0000 |
| commit | f3bb4623f40228d8ea4e03ee4e6495cb17bbf710 (patch) | |
| tree | a7767f14b5befb17e0b04139d4fac1624b675564 | |
| parent | d16017da3480f10f8dbac692b72e87ab82e2f8d7 (diff) | |
| download | gcc-f3bb4623f40228d8ea4e03ee4e6495cb17bbf710.zip gcc-f3bb4623f40228d8ea4e03ee4e6495cb17bbf710.tar.gz gcc-f3bb4623f40228d8ea4e03ee4e6495cb17bbf710.tar.bz2 | |
ABS Documentation fix
The specific intrinsics ZABS and CDABS return REAL(8) not COMPLEX(8).
From-SVN: r274847
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 69ec726..2beb71b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2019-08-23 Mark Eggleston <mark.eggleston@codethink.com> + + * intrinsics.text: Correct the return types for ZABS and CDABS. + 2019-08-22 Steven G. Kargl <kargl@gcc.gnu.org> * intrinsic.c (add_subroutines): ERRMSG is INTENT(INOUT) in diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 31b97c4..c026726 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -470,8 +470,8 @@ end program test_abs @item @code{IIABS(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIABS(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @item @code{KIABS(A)} @tab @code{INTEGER(8) A} @tab @code{INTEGER(8)} @tab GNU extension -@item @code{ZABS(A)} @tab @code{COMPLEX(8) A} @tab @code{COMPLEX(8)} @tab GNU extension -@item @code{CDABS(A)} @tab @code{COMPLEX(8) A} @tab @code{COMPLEX(8)} @tab GNU extension +@item @code{ZABS(A)} @tab @code{COMPLEX(8) A} @tab @code{REAL(8)} @tab GNU extension +@item @code{CDABS(A)} @tab @code{COMPLEX(8) A} @tab @code{REAL(8)} @tab GNU extension @end multitable @end table |