From f3bb4623f40228d8ea4e03ee4e6495cb17bbf710 Mon Sep 17 00:00:00 2001 From: Mark Eggleston Date: Fri, 23 Aug 2019 09:31:48 +0000 Subject: [PATCH] ABS Documentation fix The specific intrinsics ZABS and CDABS return REAL(8) not COMPLEX(8). From-SVN: r274847 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/intrinsic.texi | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 69ec726ac83..2beb71b4e73 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2019-08-23 Mark Eggleston + + * intrinsics.text: Correct the return types for ZABS and CDABS. + 2019-08-22 Steven G. Kargl * intrinsic.c (add_subroutines): ERRMSG is INTENT(INOUT) in diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 31b97c4def6..c0267263958 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