mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-25 12:54:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

f2c_specifics.F90: Special-case conjg functions so that their suffices are _4 and _8 instead of...

Browse Source 
* intrinsics/f2c_specifics.F90: Special-case conjg functions so
	that their suffices are _4 and _8 instead of _c4 and _c8.

From-SVN: r117335
This commit is contained in:
Francois-Xavier Coudert 2006-10-01 00:32:41 +02:00 committed by François-Xavier Coudert
parent 7ed322d7b5
commit 5da8d27d97
2 changed files with 31 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libgfortran/ChangeLog
View File

@ -1,5 +1,22 @@
2006-09-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
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 <kargl@gcc.gnu.org>
* intrinsics/cpu_time.c: Add cpu_time_10 and cpu_time_16 routines.
2006-09-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>

18
libgfortran/intrinsics/f2c_specifics.F90
View File

@ -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