diff options
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/generated/_abs_c10.F90 | 2 | ||||
-rw-r--r-- | libgfortran/generated/_abs_c16.F90 | 2 | ||||
-rw-r--r-- | libgfortran/generated/_abs_c4.F90 | 2 | ||||
-rw-r--r-- | libgfortran/generated/_abs_c8.F90 | 2 | ||||
-rw-r--r-- | libgfortran/generated/_conjg_c10.F90 | 6 | ||||
-rw-r--r-- | libgfortran/generated/_conjg_c16.F90 | 6 | ||||
-rw-r--r-- | libgfortran/generated/_conjg_c4.F90 | 6 | ||||
-rw-r--r-- | libgfortran/generated/_conjg_c8.F90 | 6 | ||||
-rw-r--r-- | libgfortran/m4/specific.m4 | 5 |
9 files changed, 19 insertions, 18 deletions
diff --git a/libgfortran/generated/_abs_c10.F90 b/libgfortran/generated/_abs_c10.F90 index 8e76b34..33a5895 100644 --- a/libgfortran/generated/_abs_c10.F90 +++ b/libgfortran/generated/_abs_c10.F90 @@ -42,7 +42,7 @@ elemental function specific__abs_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__abs_c10 + real (kind=10) :: specific__abs_c10 specific__abs_c10 = abs (parm) end function diff --git a/libgfortran/generated/_abs_c16.F90 b/libgfortran/generated/_abs_c16.F90 index acc7f22..021546d 100644 --- a/libgfortran/generated/_abs_c16.F90 +++ b/libgfortran/generated/_abs_c16.F90 @@ -42,7 +42,7 @@ elemental function specific__abs_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__abs_c16 + real (kind=16) :: specific__abs_c16 specific__abs_c16 = abs (parm) end function diff --git a/libgfortran/generated/_abs_c4.F90 b/libgfortran/generated/_abs_c4.F90 index a87fcf6..6def6b1 100644 --- a/libgfortran/generated/_abs_c4.F90 +++ b/libgfortran/generated/_abs_c4.F90 @@ -42,7 +42,7 @@ elemental function specific__abs_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__abs_c4 + real (kind=4) :: specific__abs_c4 specific__abs_c4 = abs (parm) end function diff --git a/libgfortran/generated/_abs_c8.F90 b/libgfortran/generated/_abs_c8.F90 index 294c002..bd549a5 100644 --- a/libgfortran/generated/_abs_c8.F90 +++ b/libgfortran/generated/_abs_c8.F90 @@ -42,7 +42,7 @@ elemental function specific__abs_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__abs_c8 + real (kind=8) :: specific__abs_c8 specific__abs_c8 = abs (parm) end function diff --git a/libgfortran/generated/_conjg_c10.F90 b/libgfortran/generated/_conjg_c10.F90 index 1fa158d..e03a21b 100644 --- a/libgfortran/generated/_conjg_c10.F90 +++ b/libgfortran/generated/_conjg_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) -elemental function specific__conjg_c10 (parm) +elemental function specific__conjg_10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__conjg_c10 + complex (kind=10) :: specific__conjg_10 - specific__conjg_c10 = conjg (parm) + specific__conjg_10 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c16.F90 b/libgfortran/generated/_conjg_c16.F90 index 13c8e14..876575e 100644 --- a/libgfortran/generated/_conjg_c16.F90 +++ b/libgfortran/generated/_conjg_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) -elemental function specific__conjg_c16 (parm) +elemental function specific__conjg_16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__conjg_c16 + complex (kind=16) :: specific__conjg_16 - specific__conjg_c16 = conjg (parm) + specific__conjg_16 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c4.F90 b/libgfortran/generated/_conjg_c4.F90 index a4409c9..ca615ec 100644 --- a/libgfortran/generated/_conjg_c4.F90 +++ b/libgfortran/generated/_conjg_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) -elemental function specific__conjg_c4 (parm) +elemental function specific__conjg_4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__conjg_c4 + complex (kind=4) :: specific__conjg_4 - specific__conjg_c4 = conjg (parm) + specific__conjg_4 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c8.F90 b/libgfortran/generated/_conjg_c8.F90 index f1c1254..b58de8e 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 diff --git a/libgfortran/m4/specific.m4 b/libgfortran/m4/specific.m4 index e473eff..a0d03dc 100644 --- a/libgfortran/m4/specific.m4 +++ b/libgfortran/m4/specific.m4 @@ -6,7 +6,8 @@ define(get_typename2, `$1 (kind=$2)')dnl define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl define(atype_name, get_typename(atype_letter,atype_kind))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl -define(function_name,`specific__'name`_'atype_code)dnl +define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),atype_letter),atype_kind))dnl +define(function_name,ifelse(name,conjg,`specific__conjg_'atype_kind,`specific__'name`_'atype_code))dnl define(type,ifelse(atype_letter,l,LOGICAL,ifelse(atype_letter,i,INTEGER,ifelse(atype_letter,r,REAL,ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl @@ -33,7 +34,7 @@ ifelse(NEEDED,NONE,`',`#ifdef HAVE_'prefix`'NEEDED`'Q) elemental function function_name (parm) atype_name, intent (in) :: parm - atype_name :: function_name + rtype_name :: function_name function_name = name (parm) end function |