re PR libfortran/18791 (CABS specifics declared of wrong type)

        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.

From-SVN: r117317

8 files changed, 16 insertions, 16 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