diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-09-29 20:41:11 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-09-29 20:41:11 +0000 |
| commit | e6a9045ef96f1b599f37cf7cadd2243635a29ca5 (patch) | |
| tree | 7729eb205e524dc696b58941e5b286bf2193392d /libgfortran/generated/_conjg_c8.F90 | |
| parent | ccedc60ca851756f8294823bb79dadb9dcc549ec (diff) | |
| download | gcc-e6a9045ef96f1b599f37cf7cadd2243635a29ca5.tar.gz | |
PR fortran/18791
* gfortran.dg/specifics_1.f90: New test.
* gfortran.fortran-torture/execute/specifics.f90: Add tests for
complex specifics.
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117317 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/_conjg_c8.F90')
| -rw-r--r-- | libgfortran/generated/_conjg_c8.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/_conjg_c8.F90 b/libgfortran/generated/_conjg_c8.F90 index f1c1254c970..b58de8ed45f 100644 --- a/libgfortran/generated/_conjg_c8.F90 +++ b/libgfortran/generated/_conjg_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) -elemental function specific__conjg_c8 (parm) +elemental function specific__conjg_8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__conjg_c8 + complex (kind=8) :: specific__conjg_8 - specific__conjg_c8 = conjg (parm) + specific__conjg_8 = conjg (parm) end function |