From 870156cc7f8ede6badaec56a232e23c4dd72edb0 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Sat, 30 Sep 2006 22:32:41 +0000 Subject: * intrinsics/f2c_specifics.F90: Special-case conjg functions so that their suffices are _4 and _8 instead of _c4 and _c8. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117335 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 19 ++++++++++++++++++- libgfortran/intrinsics/f2c_specifics.F90 | 18 +++++++++++++----- 2 files changed, 31 insertions(+), 6 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8b51599e3de..ed23b400ffe 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,22 @@ +2006-09-29 Francois-Xavier Coudert + + PR libfortran/18791 + * m4/specific.m4: Special-case cabs so that its return type is + real. Special-case conjg so that their suffices are _4, _8, _10 and + _16 instead of _c4, _c8, _c10 and _c16. + * intrinsics/f2c_specifics.F90: Special-case conjg functions so + that their suffices are _4 and _8 instead of _c4 and _c8. + * generated/_conjg_c4.F90: Regenerate. + * generated/_conjg_c8.F90: Regenerate. + * generated/_conjg_c10.F90: Regenerate. + * generated/_conjg_c16.F90: Regenerate. + * generated/_abs_c4.F90: Regenerate. + * generated/_abs_c8.F90: Regenerate. + * generated/_abs_c10.F90: Regenerate. + * generated/_abs_c16.F90: Regenerate. + 2006-09-29 Steven G. Kargl - + * intrinsics/cpu_time.c: Add cpu_time_10 and cpu_time_16 routines. 2006-09-28 Francois-Xavier Coudert diff --git a/libgfortran/intrinsics/f2c_specifics.F90 b/libgfortran/intrinsics/f2c_specifics.F90 index 04c0e37f3d7..6fdcfe9776c 100644 --- a/libgfortran/intrinsics/f2c_specifics.F90 +++ b/libgfortran/intrinsics/f2c_specifics.F90 @@ -135,11 +135,6 @@ REAL_BODY(cosh) REAL_HEAD(tanh) REAL_BODY(tanh) -COMPLEX_HEAD(conjg) -COMPLEX_BODY(conjg) -DCOMPLEX_HEAD(conjg) -DCOMPLEX_BODY(conjg) - REAL_HEAD(aint) REAL_BODY(aint) @@ -167,3 +162,16 @@ REAL2_BODY(atan2) REAL2_HEAD(mod) REAL2_BODY(mod) + +! conjg is special-cased because it is not suffixed _c4 but _4 +subroutine f2c_specific__conjg_4 (res, parm) + COMPLEX, intent (in) :: parm + COMPLEX, intent (out) :: res + res = conjg (parm) +end subroutine +subroutine f2c_specific__conjg_8 (res, parm) + DOUBLE COMPLEX, intent (in) :: parm + DOUBLE COMPLEX, intent (out) :: res + res = conjg (parm) +end subroutine + -- cgit v1.2.1