gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.

	* gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
	* lang.opt: Add -fallow-leading-underscore.
	* match.c (gfc_match_name): Allow leading underscore in symbol
	name if -fallow-leading-underscore is used.
	* symbol.c (gfc_get_default_type): Add special case for symbol
	names beginning with an underscore.
	* trans-decl.c (gfc_get_extern_function_decl,
	gfc_build_intrinsic_function_decls): Add _gfortran prefix to
	library symbols selected_int_kind, selected_real_kind and 
	all specifics.
	* options.c (gfc_init_options, gfc_handle_option): Handle the
	new -fallow-leading-underscore option.

	* m4/misc_specifics.m4: Add _gfortran prefix to specific names.
	* m4/specific2.m4: Likewise.
	* m4/specific.m4: Likewise.
	* intrinsics/f2c_specifics.F90: Likewise.
	* intrinsics/selected_int_kind.f90: Add _gfortran prefix.
	* intrinsics/selected_real_kind.f90: Likewise.
	* intrinsics/dprod_r8.f90: Likewise.
	* Makefile.am: Add -fallow-leading-underscore to the
	gfor_specific_src files, as well as selected_real_kind.F90
	and selected_int_kind.F90
	* Makefile.in: Regenerate.
	* generated/_sqrt_c8.F90: Regenerate.
	* generated/_sign_r16.F90: Regenerate.
	* generated/_log_c16.F90: Regenerate.
	* generated/_sin_c10.F90: Regenerate.
	* generated/_tanh_r4.F90: Regenerate.
	* generated/_tanh_r8.F90: Regenerate.
	* generated/_log10_r10.F90: Regenerate.
	* generated/_aimag_c4.F90: Regenerate.
	* generated/_sign_r4.F90: Regenerate.
	* generated/_aimag_c8.F90: Regenerate.
	* generated/_sign_r8.F90: Regenerate.
	* generated/_mod_i4.F90: Regenerate.
	* generated/_cos_r16.F90: Regenerate.
	* generated/_aint_r10.F90: Regenerate.
	* generated/_mod_i8.F90: Regenerate.
	* generated/_abs_i16.F90: Regenerate.
	* generated/_sqrt_c10.F90: Regenerate.
	* generated/_atan2_r4.F90: Regenerate.
	* generated/_cos_c4.F90: Regenerate.
	* generated/_atan_r16.F90: Regenerate.
	* generated/_tanh_r10.F90: Regenerate.
	* generated/_atan2_r8.F90: Regenerate.
	* generated/_cos_c8.F90: Regenerate.
	* generated/_exp_r4.F90: Regenerate.
	* generated/_log_r10.F90: Regenerate.
	* generated/_exp_r8.F90: Regenerate.
	* generated/_abs_r4.F90: Regenerate.
	* generated/_abs_r8.F90: Regenerate.
	* generated/_sin_r16.F90: Regenerate.
	* generated/_tan_r4.F90: Regenerate.
	* generated/_tan_r8.F90: Regenerate.
	* generated/_sign_i4.F90: Regenerate.
	* generated/_sign_i8.F90: Regenerate.
	* generated/_exp_c16.F90: Regenerate.
	* generated/_sqrt_r16.F90: Regenerate.
	* generated/_conjg_c4.F90: Regenerate.
	* generated/_conjg_c8.F90: Regenerate.
	* generated/_dim_r16.F90: Regenerate.
	* generated/_mod_r10.F90: Regenerate.
	* generated/_abs_c10.F90: Regenerate.
	* generated/_conjg_c16.F90: Regenerate.
	* generated/_tan_r16.F90: Regenerate.
	* generated/_asinh_r10.F90: Regenerate.
	* generated/_abs_i4.F90: Regenerate.
	* generated/_abs_i8.F90: Regenerate.
	* generated/_acos_r10.F90: Regenerate.
	* generated/_exp_r10.F90: Regenerate.
	* generated/_acosh_r16.F90: Regenerate.
	* generated/_atan2_r16.F90: Regenerate.
	* generated/_cos_c16.F90: Regenerate.
	* generated/_mod_i16.F90: Regenerate.
	* generated/_asin_r4.F90: Regenerate.
	* generated/_anint_r16.F90: Regenerate.
	* generated/_asin_r8.F90: Regenerate.
	* generated/_aimag_c10.F90: Regenerate.
	* generated/_exp_c4.F90: Regenerate.
	* generated/_sinh_r10.F90: Regenerate.
	* generated/_exp_c8.F90: Regenerate.
	* generated/_log10_r4.F90: Regenerate.
	* generated/_log10_r8.F90: Regenerate.
	* generated/_abs_c4.F90: Regenerate.
	* generated/_abs_r16.F90: Regenerate.
	* generated/_abs_c8.F90: Regenerate.
	* generated/_asin_r10.F90: Regenerate.
	* generated/_sign_r10.F90: Regenerate.
	* generated/_atanh_r16.F90: Regenerate.
	* generated/_log_c10.F90: Regenerate.
	* generated/_cosh_r16.F90: Regenerate.
	* generated/_sin_c16.F90: Regenerate.
	* generated/_cos_r10.F90: Regenerate.
	* generated/_log10_r16.F90: Regenerate.
	* generated/_aint_r16.F90: Regenerate.
	* generated/_acos_r4.F90: Regenerate.
	* generated/_acos_r8.F90: Regenerate.
	* generated/_sqrt_c16.F90: Regenerate.
	* generated/_acosh_r4.F90: Regenerate.
	* generated/_atan_r10.F90: Regenerate.
	* generated/_acosh_r8.F90: Regenerate.
	* generated/_sign_i16.F90: Regenerate.
	* generated/_tanh_r16.F90: Regenerate.
	* generated/_log_r4.F90: Regenerate.
	* generated/_log_r8.F90: Regenerate.
	* generated/_sin_r4.F90: Regenerate.
	* generated/_sin_r8.F90: Regenerate.
	* generated/_log_r16.F90: Regenerate.
	* generated/_sin_r10.F90: Regenerate.
	* generated/_sqrt_r4.F90: Regenerate.
	* generated/_exp_c10.F90: Regenerate.
	* generated/_sqrt_r8.F90: Regenerate.
	* generated/_asinh_r4.F90: Regenerate.
	* generated/_sqrt_r10.F90: Regenerate.
	* generated/_asinh_r8.F90: Regenerate.
	* generated/_dim_r4.F90: Regenerate.
	* generated/_dim_r8.F90: Regenerate.
	* generated/_dim_r10.F90: Regenerate.
	* generated/_cosh_r4.F90: Regenerate.
	* generated/_conjg_c10.F90: Regenerate.
	* generated/_tan_r10.F90: Regenerate.
	* generated/_cosh_r8.F90: Regenerate.
	* generated/_mod_r16.F90: Regenerate.
	* generated/_abs_c16.F90: Regenerate.
	* generated/_cos_r4.F90: Regenerate.
	* generated/_asinh_r16.F90: Regenerate.
	* generated/_cos_r8.F90: Regenerate.
	* generated/_atanh_r4.F90: Regenerate.
	* generated/_atanh_r8.F90: Regenerate.
	* generated/_acos_r16.F90: Regenerate.
	* generated/_anint_r4.F90: Regenerate.
	* generated/_acosh_r10.F90: Regenerate.
	* generated/_anint_r8.F90: Regenerate.
	* generated/_exp_r16.F90: Regenerate.
	* generated/_mod_r4.F90: Regenerate.
	* generated/_cos_c10.F90: Regenerate.
	* generated/_atan2_r10.F90: Regenerate.
	* generated/_dim_i16.F90: Regenerate.
	* generated/_mod_r8.F90: Regenerate.
	* generated/_anint_r10.F90: Regenerate.
	* generated/_aint_r4.F90: Regenerate.
	* generated/_aint_r8.F90: Regenerate.
	* generated/_dim_i4.F90: Regenerate.
	* generated/_sinh_r4.F90: Regenerate.
	* generated/_log_c4.F90: Regenerate.
	* generated/_dim_i8.F90: Regenerate.
	* generated/_sinh_r8.F90: Regenerate.
	* generated/_log_c8.F90: Regenerate.
	* generated/_sin_c4.F90: Regenerate.
	* generated/_sin_c8.F90: Regenerate.
	* generated/misc_specifics.F90: Regenerate.
	* generated/_abs_r10.F90: Regenerate.
	* generated/_aimag_c16.F90: Regenerate.
	* generated/_atan_r4.F90: Regenerate.
	* generated/_sinh_r16.F90: Regenerate.
	* generated/_atan_r8.F90: Regenerate.
	* generated/_atanh_r10.F90: Regenerate.
	* generated/_cosh_r10.F90: Regenerate.
	* generated/_sqrt_c4.F90: Regenerate.
	* generated/_asin_r16.F90: Regenerate.

From-SVN: r121007

137 files changed, 471 insertions, 471 deletions

diff --git a/libgfortran/generated/_abs_c10.F90 b/libgfortran/generated/_abs_c10.F90
index 33a58953b62..791cd5bedf6 100644
--- a/libgfortran/generated/_abs_c10.F90
+++ b/libgfortran/generated/_abs_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CABSL
 
-elemental function specific__abs_c10 (parm)
+elemental function _gfortran_specific__abs_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__abs_c10
+   real (kind=10) :: _gfortran_specific__abs_c10
 
-   specific__abs_c10 = abs (parm)
+   _gfortran_specific__abs_c10 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_c16.F90 b/libgfortran/generated/_abs_c16.F90
index 021546d3b35..ee94cb00c4e 100644
--- a/libgfortran/generated/_abs_c16.F90
+++ b/libgfortran/generated/_abs_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CABSL
 
-elemental function specific__abs_c16 (parm)
+elemental function _gfortran_specific__abs_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__abs_c16
+   real (kind=16) :: _gfortran_specific__abs_c16
 
-   specific__abs_c16 = abs (parm)
+   _gfortran_specific__abs_c16 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_c4.F90 b/libgfortran/generated/_abs_c4.F90
index 6def6b1ae61..bc25d6e4a23 100644
--- a/libgfortran/generated/_abs_c4.F90
+++ b/libgfortran/generated/_abs_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CABSF
 
-elemental function specific__abs_c4 (parm)
+elemental function _gfortran_specific__abs_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__abs_c4
+   real (kind=4) :: _gfortran_specific__abs_c4
 
-   specific__abs_c4 = abs (parm)
+   _gfortran_specific__abs_c4 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_c8.F90 b/libgfortran/generated/_abs_c8.F90
index bd549a5865d..4648dd12369 100644
--- a/libgfortran/generated/_abs_c8.F90
+++ b/libgfortran/generated/_abs_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CABS
 
-elemental function specific__abs_c8 (parm)
+elemental function _gfortran_specific__abs_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__abs_c8
+   real (kind=8) :: _gfortran_specific__abs_c8
 
-   specific__abs_c8 = abs (parm)
+   _gfortran_specific__abs_c8 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_i16.F90 b/libgfortran/generated/_abs_i16.F90
index afbb67f480e..72240c24fdf 100644
--- a/libgfortran/generated/_abs_i16.F90
+++ b/libgfortran/generated/_abs_i16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_INTEGER_16)
 
 
-elemental function specific__abs_i16 (parm)
+elemental function _gfortran_specific__abs_i16 (parm)
    integer (kind=16), intent (in) :: parm
-   integer (kind=16) :: specific__abs_i16
+   integer (kind=16) :: _gfortran_specific__abs_i16
 
-   specific__abs_i16 = abs (parm)
+   _gfortran_specific__abs_i16 = abs (parm)
 end function
 
 
diff --git a/libgfortran/generated/_abs_i4.F90 b/libgfortran/generated/_abs_i4.F90
index 4037d3473ae..5f3a1e85d8f 100644
--- a/libgfortran/generated/_abs_i4.F90
+++ b/libgfortran/generated/_abs_i4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_INTEGER_4)
 
 
-elemental function specific__abs_i4 (parm)
+elemental function _gfortran_specific__abs_i4 (parm)
    integer (kind=4), intent (in) :: parm
-   integer (kind=4) :: specific__abs_i4
+   integer (kind=4) :: _gfortran_specific__abs_i4
 
-   specific__abs_i4 = abs (parm)
+   _gfortran_specific__abs_i4 = abs (parm)
 end function
 
 
diff --git a/libgfortran/generated/_abs_i8.F90 b/libgfortran/generated/_abs_i8.F90
index 1f2e4244cf9..87f987092b1 100644
--- a/libgfortran/generated/_abs_i8.F90
+++ b/libgfortran/generated/_abs_i8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_INTEGER_8)
 
 
-elemental function specific__abs_i8 (parm)
+elemental function _gfortran_specific__abs_i8 (parm)
    integer (kind=8), intent (in) :: parm
-   integer (kind=8) :: specific__abs_i8
+   integer (kind=8) :: _gfortran_specific__abs_i8
 
-   specific__abs_i8 = abs (parm)
+   _gfortran_specific__abs_i8 = abs (parm)
 end function
 
 
diff --git a/libgfortran/generated/_abs_r10.F90 b/libgfortran/generated/_abs_r10.F90
index 4d76a1eafa9..4b070d3a99d 100644
--- a/libgfortran/generated/_abs_r10.F90
+++ b/libgfortran/generated/_abs_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_FABSL
 
-elemental function specific__abs_r10 (parm)
+elemental function _gfortran_specific__abs_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__abs_r10
+   real (kind=10) :: _gfortran_specific__abs_r10
 
-   specific__abs_r10 = abs (parm)
+   _gfortran_specific__abs_r10 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_r16.F90 b/libgfortran/generated/_abs_r16.F90
index 3c7d8a74f31..10edfba79cf 100644
--- a/libgfortran/generated/_abs_r16.F90
+++ b/libgfortran/generated/_abs_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_FABSL
 
-elemental function specific__abs_r16 (parm)
+elemental function _gfortran_specific__abs_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__abs_r16
+   real (kind=16) :: _gfortran_specific__abs_r16
 
-   specific__abs_r16 = abs (parm)
+   _gfortran_specific__abs_r16 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_r4.F90 b/libgfortran/generated/_abs_r4.F90
index 31ef426f2ac..02ebd43fd0e 100644
--- a/libgfortran/generated/_abs_r4.F90
+++ b/libgfortran/generated/_abs_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_FABSF
 
-elemental function specific__abs_r4 (parm)
+elemental function _gfortran_specific__abs_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__abs_r4
+   real (kind=4) :: _gfortran_specific__abs_r4
 
-   specific__abs_r4 = abs (parm)
+   _gfortran_specific__abs_r4 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_abs_r8.F90 b/libgfortran/generated/_abs_r8.F90
index c0b4ce1febe..0d7b62057fc 100644
--- a/libgfortran/generated/_abs_r8.F90
+++ b/libgfortran/generated/_abs_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_FABS
 
-elemental function specific__abs_r8 (parm)
+elemental function _gfortran_specific__abs_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__abs_r8
+   real (kind=8) :: _gfortran_specific__abs_r8
 
-   specific__abs_r8 = abs (parm)
+   _gfortran_specific__abs_r8 = abs (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acos_r10.F90 b/libgfortran/generated/_acos_r10.F90
index d7be7c8940e..4225572fa30 100644
--- a/libgfortran/generated/_acos_r10.F90
+++ b/libgfortran/generated/_acos_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ACOSL
 
-elemental function specific__acos_r10 (parm)
+elemental function _gfortran_specific__acos_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__acos_r10
+   real (kind=10) :: _gfortran_specific__acos_r10
 
-   specific__acos_r10 = acos (parm)
+   _gfortran_specific__acos_r10 = acos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acos_r16.F90 b/libgfortran/generated/_acos_r16.F90
index f0c6dde0863..90525beef35 100644
--- a/libgfortran/generated/_acos_r16.F90
+++ b/libgfortran/generated/_acos_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ACOSL
 
-elemental function specific__acos_r16 (parm)
+elemental function _gfortran_specific__acos_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__acos_r16
+   real (kind=16) :: _gfortran_specific__acos_r16
 
-   specific__acos_r16 = acos (parm)
+   _gfortran_specific__acos_r16 = acos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acos_r4.F90 b/libgfortran/generated/_acos_r4.F90
index 9e1b97b0e6a..16478e4872f 100644
--- a/libgfortran/generated/_acos_r4.F90
+++ b/libgfortran/generated/_acos_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ACOSF
 
-elemental function specific__acos_r4 (parm)
+elemental function _gfortran_specific__acos_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__acos_r4
+   real (kind=4) :: _gfortran_specific__acos_r4
 
-   specific__acos_r4 = acos (parm)
+   _gfortran_specific__acos_r4 = acos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acos_r8.F90 b/libgfortran/generated/_acos_r8.F90
index 3bded778503..5866b81121c 100644
--- a/libgfortran/generated/_acos_r8.F90
+++ b/libgfortran/generated/_acos_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ACOS
 
-elemental function specific__acos_r8 (parm)
+elemental function _gfortran_specific__acos_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__acos_r8
+   real (kind=8) :: _gfortran_specific__acos_r8
 
-   specific__acos_r8 = acos (parm)
+   _gfortran_specific__acos_r8 = acos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acosh_r10.F90 b/libgfortran/generated/_acosh_r10.F90
index 07bc3327c56..2f7c93d9952 100644
--- a/libgfortran/generated/_acosh_r10.F90
+++ b/libgfortran/generated/_acosh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ACOSHL
 
-elemental function specific__acosh_r10 (parm)
+elemental function _gfortran_specific__acosh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__acosh_r10
+   real (kind=10) :: _gfortran_specific__acosh_r10
 
-   specific__acosh_r10 = acosh (parm)
+   _gfortran_specific__acosh_r10 = acosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acosh_r16.F90 b/libgfortran/generated/_acosh_r16.F90
index 295a366f61c..010a42ecad0 100644
--- a/libgfortran/generated/_acosh_r16.F90
+++ b/libgfortran/generated/_acosh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ACOSHL
 
-elemental function specific__acosh_r16 (parm)
+elemental function _gfortran_specific__acosh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__acosh_r16
+   real (kind=16) :: _gfortran_specific__acosh_r16
 
-   specific__acosh_r16 = acosh (parm)
+   _gfortran_specific__acosh_r16 = acosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acosh_r4.F90 b/libgfortran/generated/_acosh_r4.F90
index 717ce409e12..f6c24839bc1 100644
--- a/libgfortran/generated/_acosh_r4.F90
+++ b/libgfortran/generated/_acosh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ACOSHF
 
-elemental function specific__acosh_r4 (parm)
+elemental function _gfortran_specific__acosh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__acosh_r4
+   real (kind=4) :: _gfortran_specific__acosh_r4
 
-   specific__acosh_r4 = acosh (parm)
+   _gfortran_specific__acosh_r4 = acosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_acosh_r8.F90 b/libgfortran/generated/_acosh_r8.F90
index d03c73ba246..e785507bb84 100644
--- a/libgfortran/generated/_acosh_r8.F90
+++ b/libgfortran/generated/_acosh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ACOSH
 
-elemental function specific__acosh_r8 (parm)
+elemental function _gfortran_specific__acosh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__acosh_r8
+   real (kind=8) :: _gfortran_specific__acosh_r8
 
-   specific__acosh_r8 = acosh (parm)
+   _gfortran_specific__acosh_r8 = acosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_aimag_c10.F90 b/libgfortran/generated/_aimag_c10.F90
index d6a6f0b8631..a406cff30a1 100644
--- a/libgfortran/generated/_aimag_c10.F90
+++ b/libgfortran/generated/_aimag_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 
 
-elemental function specific__aimag_c10 (parm)
+elemental function _gfortran_specific__aimag_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__aimag_c10
+   real (kind=10) :: _gfortran_specific__aimag_c10
 
-   specific__aimag_c10 = aimag (parm)
+   _gfortran_specific__aimag_c10 = aimag (parm)
 end function
 
 
diff --git a/libgfortran/generated/_aimag_c16.F90 b/libgfortran/generated/_aimag_c16.F90
index 717f820eb6b..32858cfb4f1 100644
--- a/libgfortran/generated/_aimag_c16.F90
+++ b/libgfortran/generated/_aimag_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 
 
-elemental function specific__aimag_c16 (parm)
+elemental function _gfortran_specific__aimag_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__aimag_c16
+   real (kind=16) :: _gfortran_specific__aimag_c16
 
-   specific__aimag_c16 = aimag (parm)
+   _gfortran_specific__aimag_c16 = aimag (parm)
 end function
 
 
diff --git a/libgfortran/generated/_aimag_c4.F90 b/libgfortran/generated/_aimag_c4.F90
index 241e7b97c15..118a742de38 100644
--- a/libgfortran/generated/_aimag_c4.F90
+++ b/libgfortran/generated/_aimag_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 
 
-elemental function specific__aimag_c4 (parm)
+elemental function _gfortran_specific__aimag_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__aimag_c4
+   real (kind=4) :: _gfortran_specific__aimag_c4
 
-   specific__aimag_c4 = aimag (parm)
+   _gfortran_specific__aimag_c4 = aimag (parm)
 end function
 
 
diff --git a/libgfortran/generated/_aimag_c8.F90 b/libgfortran/generated/_aimag_c8.F90
index 76ad7e982ca..112c6882d8e 100644
--- a/libgfortran/generated/_aimag_c8.F90
+++ b/libgfortran/generated/_aimag_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 
 
-elemental function specific__aimag_c8 (parm)
+elemental function _gfortran_specific__aimag_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__aimag_c8
+   real (kind=8) :: _gfortran_specific__aimag_c8
 
-   specific__aimag_c8 = aimag (parm)
+   _gfortran_specific__aimag_c8 = aimag (parm)
 end function
 
 
diff --git a/libgfortran/generated/_aint_r10.F90 b/libgfortran/generated/_aint_r10.F90
index 2448baa53e8..2853c0c6718 100644
--- a/libgfortran/generated/_aint_r10.F90
+++ b/libgfortran/generated/_aint_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_TRUNCL
 
-elemental function specific__aint_r10 (parm)
+elemental function _gfortran_specific__aint_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__aint_r10
+   real (kind=10) :: _gfortran_specific__aint_r10
 
-   specific__aint_r10 = aint (parm)
+   _gfortran_specific__aint_r10 = aint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_aint_r16.F90 b/libgfortran/generated/_aint_r16.F90
index 9903ad4af19..5208c4e6a8a 100644
--- a/libgfortran/generated/_aint_r16.F90
+++ b/libgfortran/generated/_aint_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_TRUNCL
 
-elemental function specific__aint_r16 (parm)
+elemental function _gfortran_specific__aint_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__aint_r16
+   real (kind=16) :: _gfortran_specific__aint_r16
 
-   specific__aint_r16 = aint (parm)
+   _gfortran_specific__aint_r16 = aint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_aint_r4.F90 b/libgfortran/generated/_aint_r4.F90
index 4fb71458834..8318dd979da 100644
--- a/libgfortran/generated/_aint_r4.F90
+++ b/libgfortran/generated/_aint_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_TRUNCF
 
-elemental function specific__aint_r4 (parm)
+elemental function _gfortran_specific__aint_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__aint_r4
+   real (kind=4) :: _gfortran_specific__aint_r4
 
-   specific__aint_r4 = aint (parm)
+   _gfortran_specific__aint_r4 = aint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_aint_r8.F90 b/libgfortran/generated/_aint_r8.F90
index f860c7ae382..9f2d712f179 100644
--- a/libgfortran/generated/_aint_r8.F90
+++ b/libgfortran/generated/_aint_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_TRUNC
 
-elemental function specific__aint_r8 (parm)
+elemental function _gfortran_specific__aint_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__aint_r8
+   real (kind=8) :: _gfortran_specific__aint_r8
 
-   specific__aint_r8 = aint (parm)
+   _gfortran_specific__aint_r8 = aint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_anint_r10.F90 b/libgfortran/generated/_anint_r10.F90
index 1652417943f..29d11b31fba 100644
--- a/libgfortran/generated/_anint_r10.F90
+++ b/libgfortran/generated/_anint_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ROUNDL
 
-elemental function specific__anint_r10 (parm)
+elemental function _gfortran_specific__anint_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__anint_r10
+   real (kind=10) :: _gfortran_specific__anint_r10
 
-   specific__anint_r10 = anint (parm)
+   _gfortran_specific__anint_r10 = anint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_anint_r16.F90 b/libgfortran/generated/_anint_r16.F90
index 48e1dffb1c3..bc74dcca91b 100644
--- a/libgfortran/generated/_anint_r16.F90
+++ b/libgfortran/generated/_anint_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ROUNDL
 
-elemental function specific__anint_r16 (parm)
+elemental function _gfortran_specific__anint_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__anint_r16
+   real (kind=16) :: _gfortran_specific__anint_r16
 
-   specific__anint_r16 = anint (parm)
+   _gfortran_specific__anint_r16 = anint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_anint_r4.F90 b/libgfortran/generated/_anint_r4.F90
index c1c955ce5e8..f808b5dc9b4 100644
--- a/libgfortran/generated/_anint_r4.F90
+++ b/libgfortran/generated/_anint_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ROUNDF
 
-elemental function specific__anint_r4 (parm)
+elemental function _gfortran_specific__anint_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__anint_r4
+   real (kind=4) :: _gfortran_specific__anint_r4
 
-   specific__anint_r4 = anint (parm)
+   _gfortran_specific__anint_r4 = anint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_anint_r8.F90 b/libgfortran/generated/_anint_r8.F90
index 6c72678944d..33495dcde9f 100644
--- a/libgfortran/generated/_anint_r8.F90
+++ b/libgfortran/generated/_anint_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ROUND
 
-elemental function specific__anint_r8 (parm)
+elemental function _gfortran_specific__anint_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__anint_r8
+   real (kind=8) :: _gfortran_specific__anint_r8
 
-   specific__anint_r8 = anint (parm)
+   _gfortran_specific__anint_r8 = anint (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asin_r10.F90 b/libgfortran/generated/_asin_r10.F90
index 80939fa3a18..cccc6c3465e 100644
--- a/libgfortran/generated/_asin_r10.F90
+++ b/libgfortran/generated/_asin_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ASINL
 
-elemental function specific__asin_r10 (parm)
+elemental function _gfortran_specific__asin_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__asin_r10
+   real (kind=10) :: _gfortran_specific__asin_r10
 
-   specific__asin_r10 = asin (parm)
+   _gfortran_specific__asin_r10 = asin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asin_r16.F90 b/libgfortran/generated/_asin_r16.F90
index 76e37b6f6a5..6b6f26da6cb 100644
--- a/libgfortran/generated/_asin_r16.F90
+++ b/libgfortran/generated/_asin_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ASINL
 
-elemental function specific__asin_r16 (parm)
+elemental function _gfortran_specific__asin_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__asin_r16
+   real (kind=16) :: _gfortran_specific__asin_r16
 
-   specific__asin_r16 = asin (parm)
+   _gfortran_specific__asin_r16 = asin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asin_r4.F90 b/libgfortran/generated/_asin_r4.F90
index cd77113879f..da9c5e23479 100644
--- a/libgfortran/generated/_asin_r4.F90
+++ b/libgfortran/generated/_asin_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ASINF
 
-elemental function specific__asin_r4 (parm)
+elemental function _gfortran_specific__asin_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__asin_r4
+   real (kind=4) :: _gfortran_specific__asin_r4
 
-   specific__asin_r4 = asin (parm)
+   _gfortran_specific__asin_r4 = asin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asin_r8.F90 b/libgfortran/generated/_asin_r8.F90
index c31f2bc8db3..62910447a0f 100644
--- a/libgfortran/generated/_asin_r8.F90
+++ b/libgfortran/generated/_asin_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ASIN
 
-elemental function specific__asin_r8 (parm)
+elemental function _gfortran_specific__asin_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__asin_r8
+   real (kind=8) :: _gfortran_specific__asin_r8
 
-   specific__asin_r8 = asin (parm)
+   _gfortran_specific__asin_r8 = asin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asinh_r10.F90 b/libgfortran/generated/_asinh_r10.F90
index c6a791b661c..24cf6b658bd 100644
--- a/libgfortran/generated/_asinh_r10.F90
+++ b/libgfortran/generated/_asinh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ASINHL
 
-elemental function specific__asinh_r10 (parm)
+elemental function _gfortran_specific__asinh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__asinh_r10
+   real (kind=10) :: _gfortran_specific__asinh_r10
 
-   specific__asinh_r10 = asinh (parm)
+   _gfortran_specific__asinh_r10 = asinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asinh_r16.F90 b/libgfortran/generated/_asinh_r16.F90
index 3b2a28b8ab3..09a1f49c5aa 100644
--- a/libgfortran/generated/_asinh_r16.F90
+++ b/libgfortran/generated/_asinh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ASINHL
 
-elemental function specific__asinh_r16 (parm)
+elemental function _gfortran_specific__asinh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__asinh_r16
+   real (kind=16) :: _gfortran_specific__asinh_r16
 
-   specific__asinh_r16 = asinh (parm)
+   _gfortran_specific__asinh_r16 = asinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asinh_r4.F90 b/libgfortran/generated/_asinh_r4.F90
index de47515bf46..f821bc75a9d 100644
--- a/libgfortran/generated/_asinh_r4.F90
+++ b/libgfortran/generated/_asinh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ASINHF
 
-elemental function specific__asinh_r4 (parm)
+elemental function _gfortran_specific__asinh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__asinh_r4
+   real (kind=4) :: _gfortran_specific__asinh_r4
 
-   specific__asinh_r4 = asinh (parm)
+   _gfortran_specific__asinh_r4 = asinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_asinh_r8.F90 b/libgfortran/generated/_asinh_r8.F90
index 0a6d0bdda4a..ab3f70af082 100644
--- a/libgfortran/generated/_asinh_r8.F90
+++ b/libgfortran/generated/_asinh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ASINH
 
-elemental function specific__asinh_r8 (parm)
+elemental function _gfortran_specific__asinh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__asinh_r8
+   real (kind=8) :: _gfortran_specific__asinh_r8
 
-   specific__asinh_r8 = asinh (parm)
+   _gfortran_specific__asinh_r8 = asinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan2_r10.F90 b/libgfortran/generated/_atan2_r10.F90
index cc9a170bd2d..d7ea3920f23 100644
--- a/libgfortran/generated/_atan2_r10.F90
+++ b/libgfortran/generated/_atan2_r10.F90
@@ -39,11 +39,11 @@
 
 #ifdef HAVE_ATAN2L
 
-elemental function specific__atan2_r10 (p1, p2)
+elemental function _gfortran_specific__atan2_r10 (p1, p2)
    real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__atan2_r10
+   real (kind=10) :: _gfortran_specific__atan2_r10
 
-   specific__atan2_r10 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r10 = atan2 (p1, p2)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan2_r16.F90 b/libgfortran/generated/_atan2_r16.F90
index f56aabef8e3..b2a6d60c0aa 100644
--- a/libgfortran/generated/_atan2_r16.F90
+++ b/libgfortran/generated/_atan2_r16.F90
@@ -39,11 +39,11 @@
 
 #ifdef HAVE_ATAN2L
 
-elemental function specific__atan2_r16 (p1, p2)
+elemental function _gfortran_specific__atan2_r16 (p1, p2)
    real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__atan2_r16
+   real (kind=16) :: _gfortran_specific__atan2_r16
 
-   specific__atan2_r16 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r16 = atan2 (p1, p2)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan2_r4.F90 b/libgfortran/generated/_atan2_r4.F90
index 52ecf7917ba..bfeb726ff1c 100644
--- a/libgfortran/generated/_atan2_r4.F90
+++ b/libgfortran/generated/_atan2_r4.F90
@@ -39,11 +39,11 @@
 
 #ifdef HAVE_ATAN2F
 
-elemental function specific__atan2_r4 (p1, p2)
+elemental function _gfortran_specific__atan2_r4 (p1, p2)
    real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__atan2_r4
+   real (kind=4) :: _gfortran_specific__atan2_r4
 
-   specific__atan2_r4 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r4 = atan2 (p1, p2)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan2_r8.F90 b/libgfortran/generated/_atan2_r8.F90
index 752b1653987..ef83c9d2831 100644
--- a/libgfortran/generated/_atan2_r8.F90
+++ b/libgfortran/generated/_atan2_r8.F90
@@ -39,11 +39,11 @@
 
 #ifdef HAVE_ATAN2
 
-elemental function specific__atan2_r8 (p1, p2)
+elemental function _gfortran_specific__atan2_r8 (p1, p2)
    real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__atan2_r8
+   real (kind=8) :: _gfortran_specific__atan2_r8
 
-   specific__atan2_r8 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r8 = atan2 (p1, p2)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan_r10.F90 b/libgfortran/generated/_atan_r10.F90
index 195d9414f52..282393391df 100644
--- a/libgfortran/generated/_atan_r10.F90
+++ b/libgfortran/generated/_atan_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ATANL
 
-elemental function specific__atan_r10 (parm)
+elemental function _gfortran_specific__atan_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__atan_r10
+   real (kind=10) :: _gfortran_specific__atan_r10
 
-   specific__atan_r10 = atan (parm)
+   _gfortran_specific__atan_r10 = atan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan_r16.F90 b/libgfortran/generated/_atan_r16.F90
index 2691a34fd37..5b4ccb37830 100644
--- a/libgfortran/generated/_atan_r16.F90
+++ b/libgfortran/generated/_atan_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ATANL
 
-elemental function specific__atan_r16 (parm)
+elemental function _gfortran_specific__atan_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__atan_r16
+   real (kind=16) :: _gfortran_specific__atan_r16
 
-   specific__atan_r16 = atan (parm)
+   _gfortran_specific__atan_r16 = atan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan_r4.F90 b/libgfortran/generated/_atan_r4.F90
index 4e88ab24f69..74dc979de6c 100644
--- a/libgfortran/generated/_atan_r4.F90
+++ b/libgfortran/generated/_atan_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ATANF
 
-elemental function specific__atan_r4 (parm)
+elemental function _gfortran_specific__atan_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__atan_r4
+   real (kind=4) :: _gfortran_specific__atan_r4
 
-   specific__atan_r4 = atan (parm)
+   _gfortran_specific__atan_r4 = atan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atan_r8.F90 b/libgfortran/generated/_atan_r8.F90
index a99de95447b..55b45bdc3d6 100644
--- a/libgfortran/generated/_atan_r8.F90
+++ b/libgfortran/generated/_atan_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ATAN
 
-elemental function specific__atan_r8 (parm)
+elemental function _gfortran_specific__atan_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__atan_r8
+   real (kind=8) :: _gfortran_specific__atan_r8
 
-   specific__atan_r8 = atan (parm)
+   _gfortran_specific__atan_r8 = atan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atanh_r10.F90 b/libgfortran/generated/_atanh_r10.F90
index 75cdf993e64..9cee6dde758 100644
--- a/libgfortran/generated/_atanh_r10.F90
+++ b/libgfortran/generated/_atanh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_ATANHL
 
-elemental function specific__atanh_r10 (parm)
+elemental function _gfortran_specific__atanh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__atanh_r10
+   real (kind=10) :: _gfortran_specific__atanh_r10
 
-   specific__atanh_r10 = atanh (parm)
+   _gfortran_specific__atanh_r10 = atanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atanh_r16.F90 b/libgfortran/generated/_atanh_r16.F90
index bc6e71cb311..9322e6a3121 100644
--- a/libgfortran/generated/_atanh_r16.F90
+++ b/libgfortran/generated/_atanh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_ATANHL
 
-elemental function specific__atanh_r16 (parm)
+elemental function _gfortran_specific__atanh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__atanh_r16
+   real (kind=16) :: _gfortran_specific__atanh_r16
 
-   specific__atanh_r16 = atanh (parm)
+   _gfortran_specific__atanh_r16 = atanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atanh_r4.F90 b/libgfortran/generated/_atanh_r4.F90
index edbd4198ef0..f08764a78c5 100644
--- a/libgfortran/generated/_atanh_r4.F90
+++ b/libgfortran/generated/_atanh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_ATANHF
 
-elemental function specific__atanh_r4 (parm)
+elemental function _gfortran_specific__atanh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__atanh_r4
+   real (kind=4) :: _gfortran_specific__atanh_r4
 
-   specific__atanh_r4 = atanh (parm)
+   _gfortran_specific__atanh_r4 = atanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_atanh_r8.F90 b/libgfortran/generated/_atanh_r8.F90
index 05dd808ff4b..b3871086e48 100644
--- a/libgfortran/generated/_atanh_r8.F90
+++ b/libgfortran/generated/_atanh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_ATANH
 
-elemental function specific__atanh_r8 (parm)
+elemental function _gfortran_specific__atanh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__atanh_r8
+   real (kind=8) :: _gfortran_specific__atanh_r8
 
-   specific__atanh_r8 = atanh (parm)
+   _gfortran_specific__atanh_r8 = atanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_conjg_c10.F90 b/libgfortran/generated/_conjg_c10.F90
index e03a21bb324..df082e99a7a 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_10 (parm)
+elemental function _gfortran_specific__conjg_10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__conjg_10
+   complex (kind=10) :: _gfortran_specific__conjg_10
 
-   specific__conjg_10 = conjg (parm)
+   _gfortran_specific__conjg_10 = conjg (parm)
 end function
 
 
diff --git a/libgfortran/generated/_conjg_c16.F90 b/libgfortran/generated/_conjg_c16.F90
index 876575ebc93..69565bdb104 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_16 (parm)
+elemental function _gfortran_specific__conjg_16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__conjg_16
+   complex (kind=16) :: _gfortran_specific__conjg_16
 
-   specific__conjg_16 = conjg (parm)
+   _gfortran_specific__conjg_16 = conjg (parm)
 end function
 
 
diff --git a/libgfortran/generated/_conjg_c4.F90 b/libgfortran/generated/_conjg_c4.F90
index ca615ec014f..5dadbec243f 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_4 (parm)
+elemental function _gfortran_specific__conjg_4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__conjg_4
+   complex (kind=4) :: _gfortran_specific__conjg_4
 
-   specific__conjg_4 = conjg (parm)
+   _gfortran_specific__conjg_4 = conjg (parm)
 end function
 
 
diff --git a/libgfortran/generated/_conjg_c8.F90 b/libgfortran/generated/_conjg_c8.F90
index b58de8ed45f..bac101fa1ad 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_8 (parm)
+elemental function _gfortran_specific__conjg_8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__conjg_8
+   complex (kind=8) :: _gfortran_specific__conjg_8
 
-   specific__conjg_8 = conjg (parm)
+   _gfortran_specific__conjg_8 = conjg (parm)
 end function
 
 
diff --git a/libgfortran/generated/_cos_c10.F90 b/libgfortran/generated/_cos_c10.F90
index 018394cc919..e926d862f16 100644
--- a/libgfortran/generated/_cos_c10.F90
+++ b/libgfortran/generated/_cos_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CCOSL
 
-elemental function specific__cos_c10 (parm)
+elemental function _gfortran_specific__cos_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__cos_c10
+   complex (kind=10) :: _gfortran_specific__cos_c10
 
-   specific__cos_c10 = cos (parm)
+   _gfortran_specific__cos_c10 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_c16.F90 b/libgfortran/generated/_cos_c16.F90
index ac6bc876862..f98ff0f9586 100644
--- a/libgfortran/generated/_cos_c16.F90
+++ b/libgfortran/generated/_cos_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CCOSL
 
-elemental function specific__cos_c16 (parm)
+elemental function _gfortran_specific__cos_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__cos_c16
+   complex (kind=16) :: _gfortran_specific__cos_c16
 
-   specific__cos_c16 = cos (parm)
+   _gfortran_specific__cos_c16 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_c4.F90 b/libgfortran/generated/_cos_c4.F90
index e49469577bc..3e7e243e5b5 100644
--- a/libgfortran/generated/_cos_c4.F90
+++ b/libgfortran/generated/_cos_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CCOSF
 
-elemental function specific__cos_c4 (parm)
+elemental function _gfortran_specific__cos_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__cos_c4
+   complex (kind=4) :: _gfortran_specific__cos_c4
 
-   specific__cos_c4 = cos (parm)
+   _gfortran_specific__cos_c4 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_c8.F90 b/libgfortran/generated/_cos_c8.F90
index d3daf6e1360..6a7d1fa07e6 100644
--- a/libgfortran/generated/_cos_c8.F90
+++ b/libgfortran/generated/_cos_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CCOS
 
-elemental function specific__cos_c8 (parm)
+elemental function _gfortran_specific__cos_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__cos_c8
+   complex (kind=8) :: _gfortran_specific__cos_c8
 
-   specific__cos_c8 = cos (parm)
+   _gfortran_specific__cos_c8 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_r10.F90 b/libgfortran/generated/_cos_r10.F90
index 142cb4b947f..c68230ceb48 100644
--- a/libgfortran/generated/_cos_r10.F90
+++ b/libgfortran/generated/_cos_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_COSL
 
-elemental function specific__cos_r10 (parm)
+elemental function _gfortran_specific__cos_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__cos_r10
+   real (kind=10) :: _gfortran_specific__cos_r10
 
-   specific__cos_r10 = cos (parm)
+   _gfortran_specific__cos_r10 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_r16.F90 b/libgfortran/generated/_cos_r16.F90
index 434639755c4..e23e7e737fb 100644
--- a/libgfortran/generated/_cos_r16.F90
+++ b/libgfortran/generated/_cos_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_COSL
 
-elemental function specific__cos_r16 (parm)
+elemental function _gfortran_specific__cos_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__cos_r16
+   real (kind=16) :: _gfortran_specific__cos_r16
 
-   specific__cos_r16 = cos (parm)
+   _gfortran_specific__cos_r16 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_r4.F90 b/libgfortran/generated/_cos_r4.F90
index ddf2509a272..6ae1eadf925 100644
--- a/libgfortran/generated/_cos_r4.F90
+++ b/libgfortran/generated/_cos_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_COSF
 
-elemental function specific__cos_r4 (parm)
+elemental function _gfortran_specific__cos_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__cos_r4
+   real (kind=4) :: _gfortran_specific__cos_r4
 
-   specific__cos_r4 = cos (parm)
+   _gfortran_specific__cos_r4 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cos_r8.F90 b/libgfortran/generated/_cos_r8.F90
index d45a11aa33c..0addadc26cc 100644
--- a/libgfortran/generated/_cos_r8.F90
+++ b/libgfortran/generated/_cos_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_COS
 
-elemental function specific__cos_r8 (parm)
+elemental function _gfortran_specific__cos_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__cos_r8
+   real (kind=8) :: _gfortran_specific__cos_r8
 
-   specific__cos_r8 = cos (parm)
+   _gfortran_specific__cos_r8 = cos (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cosh_r10.F90 b/libgfortran/generated/_cosh_r10.F90
index 9c7d3fbdf88..c82329039e1 100644
--- a/libgfortran/generated/_cosh_r10.F90
+++ b/libgfortran/generated/_cosh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_COSHL
 
-elemental function specific__cosh_r10 (parm)
+elemental function _gfortran_specific__cosh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__cosh_r10
+   real (kind=10) :: _gfortran_specific__cosh_r10
 
-   specific__cosh_r10 = cosh (parm)
+   _gfortran_specific__cosh_r10 = cosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cosh_r16.F90 b/libgfortran/generated/_cosh_r16.F90
index ac28f996590..cb20cd3af0e 100644
--- a/libgfortran/generated/_cosh_r16.F90
+++ b/libgfortran/generated/_cosh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_COSHL
 
-elemental function specific__cosh_r16 (parm)
+elemental function _gfortran_specific__cosh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__cosh_r16
+   real (kind=16) :: _gfortran_specific__cosh_r16
 
-   specific__cosh_r16 = cosh (parm)
+   _gfortran_specific__cosh_r16 = cosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cosh_r4.F90 b/libgfortran/generated/_cosh_r4.F90
index 289c9bc0e24..6559d778e0e 100644
--- a/libgfortran/generated/_cosh_r4.F90
+++ b/libgfortran/generated/_cosh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_COSHF
 
-elemental function specific__cosh_r4 (parm)
+elemental function _gfortran_specific__cosh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__cosh_r4
+   real (kind=4) :: _gfortran_specific__cosh_r4
 
-   specific__cosh_r4 = cosh (parm)
+   _gfortran_specific__cosh_r4 = cosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_cosh_r8.F90 b/libgfortran/generated/_cosh_r8.F90
index 6b47452298c..00ff5842d26 100644
--- a/libgfortran/generated/_cosh_r8.F90
+++ b/libgfortran/generated/_cosh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_COSH
 
-elemental function specific__cosh_r8 (parm)
+elemental function _gfortran_specific__cosh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__cosh_r8
+   real (kind=8) :: _gfortran_specific__cosh_r8
 
-   specific__cosh_r8 = cosh (parm)
+   _gfortran_specific__cosh_r8 = cosh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_dim_i16.F90 b/libgfortran/generated/_dim_i16.F90
index 55a1a521a88..acfc3a4eabf 100644
--- a/libgfortran/generated/_dim_i16.F90
+++ b/libgfortran/generated/_dim_i16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_i16 (p1, p2)
+elemental function _gfortran_specific__dim_i16 (p1, p2)
    integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__dim_i16
+   integer (kind=16) :: _gfortran_specific__dim_i16
 
-   specific__dim_i16 = dim (p1, p2)
+   _gfortran_specific__dim_i16 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_i4.F90 b/libgfortran/generated/_dim_i4.F90
index 2fd8658460a..16ef060fbfc 100644
--- a/libgfortran/generated/_dim_i4.F90
+++ b/libgfortran/generated/_dim_i4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_i4 (p1, p2)
+elemental function _gfortran_specific__dim_i4 (p1, p2)
    integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__dim_i4
+   integer (kind=4) :: _gfortran_specific__dim_i4
 
-   specific__dim_i4 = dim (p1, p2)
+   _gfortran_specific__dim_i4 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_i8.F90 b/libgfortran/generated/_dim_i8.F90
index e861d9eb841..01ca82a967f 100644
--- a/libgfortran/generated/_dim_i8.F90
+++ b/libgfortran/generated/_dim_i8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_i8 (p1, p2)
+elemental function _gfortran_specific__dim_i8 (p1, p2)
    integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__dim_i8
+   integer (kind=8) :: _gfortran_specific__dim_i8
 
-   specific__dim_i8 = dim (p1, p2)
+   _gfortran_specific__dim_i8 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_r10.F90 b/libgfortran/generated/_dim_r10.F90
index 1e7743d6671..1d140004106 100644
--- a/libgfortran/generated/_dim_r10.F90
+++ b/libgfortran/generated/_dim_r10.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_r10 (p1, p2)
+elemental function _gfortran_specific__dim_r10 (p1, p2)
    real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__dim_r10
+   real (kind=10) :: _gfortran_specific__dim_r10
 
-   specific__dim_r10 = dim (p1, p2)
+   _gfortran_specific__dim_r10 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_r16.F90 b/libgfortran/generated/_dim_r16.F90
index 97a048890e3..1f435b3b555 100644
--- a/libgfortran/generated/_dim_r16.F90
+++ b/libgfortran/generated/_dim_r16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_r16 (p1, p2)
+elemental function _gfortran_specific__dim_r16 (p1, p2)
    real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__dim_r16
+   real (kind=16) :: _gfortran_specific__dim_r16
 
-   specific__dim_r16 = dim (p1, p2)
+   _gfortran_specific__dim_r16 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_r4.F90 b/libgfortran/generated/_dim_r4.F90
index 465b28489aa..0c4cd5d6b9a 100644
--- a/libgfortran/generated/_dim_r4.F90
+++ b/libgfortran/generated/_dim_r4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_r4 (p1, p2)
+elemental function _gfortran_specific__dim_r4 (p1, p2)
    real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__dim_r4
+   real (kind=4) :: _gfortran_specific__dim_r4
 
-   specific__dim_r4 = dim (p1, p2)
+   _gfortran_specific__dim_r4 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_dim_r8.F90 b/libgfortran/generated/_dim_r8.F90
index 3e6b3379fe2..f23b0cce1f9 100644
--- a/libgfortran/generated/_dim_r8.F90
+++ b/libgfortran/generated/_dim_r8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__dim_r8 (p1, p2)
+elemental function _gfortran_specific__dim_r8 (p1, p2)
    real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__dim_r8
+   real (kind=8) :: _gfortran_specific__dim_r8
 
-   specific__dim_r8 = dim (p1, p2)
+   _gfortran_specific__dim_r8 = dim (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_exp_c10.F90 b/libgfortran/generated/_exp_c10.F90
index bcf1f2bdd87..126f55c9536 100644
--- a/libgfortran/generated/_exp_c10.F90
+++ b/libgfortran/generated/_exp_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CEXPL
 
-elemental function specific__exp_c10 (parm)
+elemental function _gfortran_specific__exp_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__exp_c10
+   complex (kind=10) :: _gfortran_specific__exp_c10
 
-   specific__exp_c10 = exp (parm)
+   _gfortran_specific__exp_c10 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_c16.F90 b/libgfortran/generated/_exp_c16.F90
index 58527bc536a..ad7d4dc7244 100644
--- a/libgfortran/generated/_exp_c16.F90
+++ b/libgfortran/generated/_exp_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CEXPL
 
-elemental function specific__exp_c16 (parm)
+elemental function _gfortran_specific__exp_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__exp_c16
+   complex (kind=16) :: _gfortran_specific__exp_c16
 
-   specific__exp_c16 = exp (parm)
+   _gfortran_specific__exp_c16 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_c4.F90 b/libgfortran/generated/_exp_c4.F90
index 6fba6756be9..866820b33cc 100644
--- a/libgfortran/generated/_exp_c4.F90
+++ b/libgfortran/generated/_exp_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CEXPF
 
-elemental function specific__exp_c4 (parm)
+elemental function _gfortran_specific__exp_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__exp_c4
+   complex (kind=4) :: _gfortran_specific__exp_c4
 
-   specific__exp_c4 = exp (parm)
+   _gfortran_specific__exp_c4 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_c8.F90 b/libgfortran/generated/_exp_c8.F90
index cbc82a156dd..2112ce861a0 100644
--- a/libgfortran/generated/_exp_c8.F90
+++ b/libgfortran/generated/_exp_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CEXP
 
-elemental function specific__exp_c8 (parm)
+elemental function _gfortran_specific__exp_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__exp_c8
+   complex (kind=8) :: _gfortran_specific__exp_c8
 
-   specific__exp_c8 = exp (parm)
+   _gfortran_specific__exp_c8 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_r10.F90 b/libgfortran/generated/_exp_r10.F90
index 86bf749943a..03e8fa02902 100644
--- a/libgfortran/generated/_exp_r10.F90
+++ b/libgfortran/generated/_exp_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_EXPL
 
-elemental function specific__exp_r10 (parm)
+elemental function _gfortran_specific__exp_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__exp_r10
+   real (kind=10) :: _gfortran_specific__exp_r10
 
-   specific__exp_r10 = exp (parm)
+   _gfortran_specific__exp_r10 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_r16.F90 b/libgfortran/generated/_exp_r16.F90
index 4aaee9eb17d..a88733c91f4 100644
--- a/libgfortran/generated/_exp_r16.F90
+++ b/libgfortran/generated/_exp_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_EXPL
 
-elemental function specific__exp_r16 (parm)
+elemental function _gfortran_specific__exp_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__exp_r16
+   real (kind=16) :: _gfortran_specific__exp_r16
 
-   specific__exp_r16 = exp (parm)
+   _gfortran_specific__exp_r16 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_r4.F90 b/libgfortran/generated/_exp_r4.F90
index d76fb143cc6..0d71d2e493b 100644
--- a/libgfortran/generated/_exp_r4.F90
+++ b/libgfortran/generated/_exp_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_EXPF
 
-elemental function specific__exp_r4 (parm)
+elemental function _gfortran_specific__exp_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__exp_r4
+   real (kind=4) :: _gfortran_specific__exp_r4
 
-   specific__exp_r4 = exp (parm)
+   _gfortran_specific__exp_r4 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_exp_r8.F90 b/libgfortran/generated/_exp_r8.F90
index d529810ca57..e0e2c8d057a 100644
--- a/libgfortran/generated/_exp_r8.F90
+++ b/libgfortran/generated/_exp_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_EXP
 
-elemental function specific__exp_r8 (parm)
+elemental function _gfortran_specific__exp_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__exp_r8
+   real (kind=8) :: _gfortran_specific__exp_r8
 
-   specific__exp_r8 = exp (parm)
+   _gfortran_specific__exp_r8 = exp (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log10_r10.F90 b/libgfortran/generated/_log10_r10.F90
index 19aeac5c1be..f293489eb18 100644
--- a/libgfortran/generated/_log10_r10.F90
+++ b/libgfortran/generated/_log10_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_LOG10L
 
-elemental function specific__log10_r10 (parm)
+elemental function _gfortran_specific__log10_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__log10_r10
+   real (kind=10) :: _gfortran_specific__log10_r10
 
-   specific__log10_r10 = log10 (parm)
+   _gfortran_specific__log10_r10 = log10 (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log10_r16.F90 b/libgfortran/generated/_log10_r16.F90
index c03002aa456..f690879953b 100644
--- a/libgfortran/generated/_log10_r16.F90
+++ b/libgfortran/generated/_log10_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_LOG10L
 
-elemental function specific__log10_r16 (parm)
+elemental function _gfortran_specific__log10_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__log10_r16
+   real (kind=16) :: _gfortran_specific__log10_r16
 
-   specific__log10_r16 = log10 (parm)
+   _gfortran_specific__log10_r16 = log10 (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log10_r4.F90 b/libgfortran/generated/_log10_r4.F90
index c772527ae86..bcadf2417ee 100644
--- a/libgfortran/generated/_log10_r4.F90
+++ b/libgfortran/generated/_log10_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_LOG10F
 
-elemental function specific__log10_r4 (parm)
+elemental function _gfortran_specific__log10_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__log10_r4
+   real (kind=4) :: _gfortran_specific__log10_r4
 
-   specific__log10_r4 = log10 (parm)
+   _gfortran_specific__log10_r4 = log10 (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log10_r8.F90 b/libgfortran/generated/_log10_r8.F90
index 396570989e6..7d55ad703e7 100644
--- a/libgfortran/generated/_log10_r8.F90
+++ b/libgfortran/generated/_log10_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_LOG10
 
-elemental function specific__log10_r8 (parm)
+elemental function _gfortran_specific__log10_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__log10_r8
+   real (kind=8) :: _gfortran_specific__log10_r8
 
-   specific__log10_r8 = log10 (parm)
+   _gfortran_specific__log10_r8 = log10 (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_c10.F90 b/libgfortran/generated/_log_c10.F90
index e3f6934e628..90e415bcd2e 100644
--- a/libgfortran/generated/_log_c10.F90
+++ b/libgfortran/generated/_log_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CLOGL
 
-elemental function specific__log_c10 (parm)
+elemental function _gfortran_specific__log_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__log_c10
+   complex (kind=10) :: _gfortran_specific__log_c10
 
-   specific__log_c10 = log (parm)
+   _gfortran_specific__log_c10 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_c16.F90 b/libgfortran/generated/_log_c16.F90
index 776140a7e78..d9db7cea035 100644
--- a/libgfortran/generated/_log_c16.F90
+++ b/libgfortran/generated/_log_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CLOGL
 
-elemental function specific__log_c16 (parm)
+elemental function _gfortran_specific__log_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__log_c16
+   complex (kind=16) :: _gfortran_specific__log_c16
 
-   specific__log_c16 = log (parm)
+   _gfortran_specific__log_c16 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_c4.F90 b/libgfortran/generated/_log_c4.F90
index 923bdd573ca..550ed1d6eed 100644
--- a/libgfortran/generated/_log_c4.F90
+++ b/libgfortran/generated/_log_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CLOGF
 
-elemental function specific__log_c4 (parm)
+elemental function _gfortran_specific__log_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__log_c4
+   complex (kind=4) :: _gfortran_specific__log_c4
 
-   specific__log_c4 = log (parm)
+   _gfortran_specific__log_c4 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_c8.F90 b/libgfortran/generated/_log_c8.F90
index 0df0dd83d2d..ee26dc21f15 100644
--- a/libgfortran/generated/_log_c8.F90
+++ b/libgfortran/generated/_log_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CLOG
 
-elemental function specific__log_c8 (parm)
+elemental function _gfortran_specific__log_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__log_c8
+   complex (kind=8) :: _gfortran_specific__log_c8
 
-   specific__log_c8 = log (parm)
+   _gfortran_specific__log_c8 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_r10.F90 b/libgfortran/generated/_log_r10.F90
index d8938818053..ca7d3374389 100644
--- a/libgfortran/generated/_log_r10.F90
+++ b/libgfortran/generated/_log_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_LOGL
 
-elemental function specific__log_r10 (parm)
+elemental function _gfortran_specific__log_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__log_r10
+   real (kind=10) :: _gfortran_specific__log_r10
 
-   specific__log_r10 = log (parm)
+   _gfortran_specific__log_r10 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_r16.F90 b/libgfortran/generated/_log_r16.F90
index 5013656e9da..7bd4038a500 100644
--- a/libgfortran/generated/_log_r16.F90
+++ b/libgfortran/generated/_log_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_LOGL
 
-elemental function specific__log_r16 (parm)
+elemental function _gfortran_specific__log_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__log_r16
+   real (kind=16) :: _gfortran_specific__log_r16
 
-   specific__log_r16 = log (parm)
+   _gfortran_specific__log_r16 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_r4.F90 b/libgfortran/generated/_log_r4.F90
index 6a742377648..b4e6217bfe1 100644
--- a/libgfortran/generated/_log_r4.F90
+++ b/libgfortran/generated/_log_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_LOGF
 
-elemental function specific__log_r4 (parm)
+elemental function _gfortran_specific__log_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__log_r4
+   real (kind=4) :: _gfortran_specific__log_r4
 
-   specific__log_r4 = log (parm)
+   _gfortran_specific__log_r4 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_log_r8.F90 b/libgfortran/generated/_log_r8.F90
index 8383bbfd36a..a0b149b16ce 100644
--- a/libgfortran/generated/_log_r8.F90
+++ b/libgfortran/generated/_log_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_LOG
 
-elemental function specific__log_r8 (parm)
+elemental function _gfortran_specific__log_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__log_r8
+   real (kind=8) :: _gfortran_specific__log_r8
 
-   specific__log_r8 = log (parm)
+   _gfortran_specific__log_r8 = log (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_mod_i16.F90 b/libgfortran/generated/_mod_i16.F90
index 571db409bf9..fd851b8d218 100644
--- a/libgfortran/generated/_mod_i16.F90
+++ b/libgfortran/generated/_mod_i16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_i16 (p1, p2)
+elemental function _gfortran_specific__mod_i16 (p1, p2)
    integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__mod_i16
+   integer (kind=16) :: _gfortran_specific__mod_i16
 
-   specific__mod_i16 = mod (p1, p2)
+   _gfortran_specific__mod_i16 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_i4.F90 b/libgfortran/generated/_mod_i4.F90
index ec6f81dee2a..7f5bcb22015 100644
--- a/libgfortran/generated/_mod_i4.F90
+++ b/libgfortran/generated/_mod_i4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_i4 (p1, p2)
+elemental function _gfortran_specific__mod_i4 (p1, p2)
    integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__mod_i4
+   integer (kind=4) :: _gfortran_specific__mod_i4
 
-   specific__mod_i4 = mod (p1, p2)
+   _gfortran_specific__mod_i4 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_i8.F90 b/libgfortran/generated/_mod_i8.F90
index e34278b13ec..94f6c7b85f4 100644
--- a/libgfortran/generated/_mod_i8.F90
+++ b/libgfortran/generated/_mod_i8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_i8 (p1, p2)
+elemental function _gfortran_specific__mod_i8 (p1, p2)
    integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__mod_i8
+   integer (kind=8) :: _gfortran_specific__mod_i8
 
-   specific__mod_i8 = mod (p1, p2)
+   _gfortran_specific__mod_i8 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_r10.F90 b/libgfortran/generated/_mod_r10.F90
index 9826d122f57..a4cf1d04046 100644
--- a/libgfortran/generated/_mod_r10.F90
+++ b/libgfortran/generated/_mod_r10.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_r10 (p1, p2)
+elemental function _gfortran_specific__mod_r10 (p1, p2)
    real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__mod_r10
+   real (kind=10) :: _gfortran_specific__mod_r10
 
-   specific__mod_r10 = mod (p1, p2)
+   _gfortran_specific__mod_r10 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_r16.F90 b/libgfortran/generated/_mod_r16.F90
index 15c2b815b1c..6ae2c4f1758 100644
--- a/libgfortran/generated/_mod_r16.F90
+++ b/libgfortran/generated/_mod_r16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_r16 (p1, p2)
+elemental function _gfortran_specific__mod_r16 (p1, p2)
    real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__mod_r16
+   real (kind=16) :: _gfortran_specific__mod_r16
 
-   specific__mod_r16 = mod (p1, p2)
+   _gfortran_specific__mod_r16 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_r4.F90 b/libgfortran/generated/_mod_r4.F90
index 6742ee488af..dfb0f078e8e 100644
--- a/libgfortran/generated/_mod_r4.F90
+++ b/libgfortran/generated/_mod_r4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_r4 (p1, p2)
+elemental function _gfortran_specific__mod_r4 (p1, p2)
    real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__mod_r4
+   real (kind=4) :: _gfortran_specific__mod_r4
 
-   specific__mod_r4 = mod (p1, p2)
+   _gfortran_specific__mod_r4 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_mod_r8.F90 b/libgfortran/generated/_mod_r8.F90
index 3cc7e165111..50df377fc6b 100644
--- a/libgfortran/generated/_mod_r8.F90
+++ b/libgfortran/generated/_mod_r8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__mod_r8 (p1, p2)
+elemental function _gfortran_specific__mod_r8 (p1, p2)
    real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__mod_r8
+   real (kind=8) :: _gfortran_specific__mod_r8
 
-   specific__mod_r8 = mod (p1, p2)
+   _gfortran_specific__mod_r8 = mod (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_i16.F90 b/libgfortran/generated/_sign_i16.F90
index 50e492c3f80..3e642b29b81 100644
--- a/libgfortran/generated/_sign_i16.F90
+++ b/libgfortran/generated/_sign_i16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_i16 (p1, p2)
+elemental function _gfortran_specific__sign_i16 (p1, p2)
    integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__sign_i16
+   integer (kind=16) :: _gfortran_specific__sign_i16
 
-   specific__sign_i16 = sign (p1, p2)
+   _gfortran_specific__sign_i16 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_i4.F90 b/libgfortran/generated/_sign_i4.F90
index d9ea551c6d9..d637aae54bf 100644
--- a/libgfortran/generated/_sign_i4.F90
+++ b/libgfortran/generated/_sign_i4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_i4 (p1, p2)
+elemental function _gfortran_specific__sign_i4 (p1, p2)
    integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__sign_i4
+   integer (kind=4) :: _gfortran_specific__sign_i4
 
-   specific__sign_i4 = sign (p1, p2)
+   _gfortran_specific__sign_i4 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_i8.F90 b/libgfortran/generated/_sign_i8.F90
index 241fb8b0f1c..00d0eda6964 100644
--- a/libgfortran/generated/_sign_i8.F90
+++ b/libgfortran/generated/_sign_i8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_i8 (p1, p2)
+elemental function _gfortran_specific__sign_i8 (p1, p2)
    integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__sign_i8
+   integer (kind=8) :: _gfortran_specific__sign_i8
 
-   specific__sign_i8 = sign (p1, p2)
+   _gfortran_specific__sign_i8 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_r10.F90 b/libgfortran/generated/_sign_r10.F90
index 002330f0d80..b165526b579 100644
--- a/libgfortran/generated/_sign_r10.F90
+++ b/libgfortran/generated/_sign_r10.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_r10 (p1, p2)
+elemental function _gfortran_specific__sign_r10 (p1, p2)
    real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__sign_r10
+   real (kind=10) :: _gfortran_specific__sign_r10
 
-   specific__sign_r10 = sign (p1, p2)
+   _gfortran_specific__sign_r10 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_r16.F90 b/libgfortran/generated/_sign_r16.F90
index 8377969c67a..5e66148d3ff 100644
--- a/libgfortran/generated/_sign_r16.F90
+++ b/libgfortran/generated/_sign_r16.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_r16 (p1, p2)
+elemental function _gfortran_specific__sign_r16 (p1, p2)
    real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__sign_r16
+   real (kind=16) :: _gfortran_specific__sign_r16
 
-   specific__sign_r16 = sign (p1, p2)
+   _gfortran_specific__sign_r16 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_r4.F90 b/libgfortran/generated/_sign_r4.F90
index e11f15d093e..6428b9adf4f 100644
--- a/libgfortran/generated/_sign_r4.F90
+++ b/libgfortran/generated/_sign_r4.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_r4 (p1, p2)
+elemental function _gfortran_specific__sign_r4 (p1, p2)
    real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__sign_r4
+   real (kind=4) :: _gfortran_specific__sign_r4
 
-   specific__sign_r4 = sign (p1, p2)
+   _gfortran_specific__sign_r4 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sign_r8.F90 b/libgfortran/generated/_sign_r8.F90
index 66f8dee53a5..452132dd0fe 100644
--- a/libgfortran/generated/_sign_r8.F90
+++ b/libgfortran/generated/_sign_r8.F90
@@ -39,11 +39,11 @@
 
 
 
-elemental function specific__sign_r8 (p1, p2)
+elemental function _gfortran_specific__sign_r8 (p1, p2)
    real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__sign_r8
+   real (kind=8) :: _gfortran_specific__sign_r8
 
-   specific__sign_r8 = sign (p1, p2)
+   _gfortran_specific__sign_r8 = sign (p1, p2)
 end function
 
 
diff --git a/libgfortran/generated/_sin_c10.F90 b/libgfortran/generated/_sin_c10.F90
index 2c34b3c931d..6384598ee84 100644
--- a/libgfortran/generated/_sin_c10.F90
+++ b/libgfortran/generated/_sin_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CSINL
 
-elemental function specific__sin_c10 (parm)
+elemental function _gfortran_specific__sin_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__sin_c10
+   complex (kind=10) :: _gfortran_specific__sin_c10
 
-   specific__sin_c10 = sin (parm)
+   _gfortran_specific__sin_c10 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_c16.F90 b/libgfortran/generated/_sin_c16.F90
index 75a7108795f..4e8f445f722 100644
--- a/libgfortran/generated/_sin_c16.F90
+++ b/libgfortran/generated/_sin_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CSINL
 
-elemental function specific__sin_c16 (parm)
+elemental function _gfortran_specific__sin_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__sin_c16
+   complex (kind=16) :: _gfortran_specific__sin_c16
 
-   specific__sin_c16 = sin (parm)
+   _gfortran_specific__sin_c16 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_c4.F90 b/libgfortran/generated/_sin_c4.F90
index 0efc127d87f..7f4b6be6307 100644
--- a/libgfortran/generated/_sin_c4.F90
+++ b/libgfortran/generated/_sin_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CSINF
 
-elemental function specific__sin_c4 (parm)
+elemental function _gfortran_specific__sin_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__sin_c4
+   complex (kind=4) :: _gfortran_specific__sin_c4
 
-   specific__sin_c4 = sin (parm)
+   _gfortran_specific__sin_c4 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_c8.F90 b/libgfortran/generated/_sin_c8.F90
index 73a27a42e69..9abd4a13ec4 100644
--- a/libgfortran/generated/_sin_c8.F90
+++ b/libgfortran/generated/_sin_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CSIN
 
-elemental function specific__sin_c8 (parm)
+elemental function _gfortran_specific__sin_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__sin_c8
+   complex (kind=8) :: _gfortran_specific__sin_c8
 
-   specific__sin_c8 = sin (parm)
+   _gfortran_specific__sin_c8 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_r10.F90 b/libgfortran/generated/_sin_r10.F90
index 55f5871fc3d..f201962e689 100644
--- a/libgfortran/generated/_sin_r10.F90
+++ b/libgfortran/generated/_sin_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_SINL
 
-elemental function specific__sin_r10 (parm)
+elemental function _gfortran_specific__sin_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sin_r10
+   real (kind=10) :: _gfortran_specific__sin_r10
 
-   specific__sin_r10 = sin (parm)
+   _gfortran_specific__sin_r10 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_r16.F90 b/libgfortran/generated/_sin_r16.F90
index 3757cc0b1f8..10c86a88e49 100644
--- a/libgfortran/generated/_sin_r16.F90
+++ b/libgfortran/generated/_sin_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_SINL
 
-elemental function specific__sin_r16 (parm)
+elemental function _gfortran_specific__sin_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sin_r16
+   real (kind=16) :: _gfortran_specific__sin_r16
 
-   specific__sin_r16 = sin (parm)
+   _gfortran_specific__sin_r16 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_r4.F90 b/libgfortran/generated/_sin_r4.F90
index 4fea10356e9..b586928daf0 100644
--- a/libgfortran/generated/_sin_r4.F90
+++ b/libgfortran/generated/_sin_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_SINF
 
-elemental function specific__sin_r4 (parm)
+elemental function _gfortran_specific__sin_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sin_r4
+   real (kind=4) :: _gfortran_specific__sin_r4
 
-   specific__sin_r4 = sin (parm)
+   _gfortran_specific__sin_r4 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sin_r8.F90 b/libgfortran/generated/_sin_r8.F90
index e35c3d1c254..cb8e25772d9 100644
--- a/libgfortran/generated/_sin_r8.F90
+++ b/libgfortran/generated/_sin_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_SIN
 
-elemental function specific__sin_r8 (parm)
+elemental function _gfortran_specific__sin_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sin_r8
+   real (kind=8) :: _gfortran_specific__sin_r8
 
-   specific__sin_r8 = sin (parm)
+   _gfortran_specific__sin_r8 = sin (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sinh_r10.F90 b/libgfortran/generated/_sinh_r10.F90
index 7aa5e98a2f3..67609d682d2 100644
--- a/libgfortran/generated/_sinh_r10.F90
+++ b/libgfortran/generated/_sinh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_SINHL
 
-elemental function specific__sinh_r10 (parm)
+elemental function _gfortran_specific__sinh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sinh_r10
+   real (kind=10) :: _gfortran_specific__sinh_r10
 
-   specific__sinh_r10 = sinh (parm)
+   _gfortran_specific__sinh_r10 = sinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sinh_r16.F90 b/libgfortran/generated/_sinh_r16.F90
index 6ea69470788..6274a59b7d6 100644
--- a/libgfortran/generated/_sinh_r16.F90
+++ b/libgfortran/generated/_sinh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_SINHL
 
-elemental function specific__sinh_r16 (parm)
+elemental function _gfortran_specific__sinh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sinh_r16
+   real (kind=16) :: _gfortran_specific__sinh_r16
 
-   specific__sinh_r16 = sinh (parm)
+   _gfortran_specific__sinh_r16 = sinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sinh_r4.F90 b/libgfortran/generated/_sinh_r4.F90
index 1101debe902..116f205385c 100644
--- a/libgfortran/generated/_sinh_r4.F90
+++ b/libgfortran/generated/_sinh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_SINHF
 
-elemental function specific__sinh_r4 (parm)
+elemental function _gfortran_specific__sinh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sinh_r4
+   real (kind=4) :: _gfortran_specific__sinh_r4
 
-   specific__sinh_r4 = sinh (parm)
+   _gfortran_specific__sinh_r4 = sinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sinh_r8.F90 b/libgfortran/generated/_sinh_r8.F90
index 63eb8d5c246..bb4ceae479c 100644
--- a/libgfortran/generated/_sinh_r8.F90
+++ b/libgfortran/generated/_sinh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_SINH
 
-elemental function specific__sinh_r8 (parm)
+elemental function _gfortran_specific__sinh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sinh_r8
+   real (kind=8) :: _gfortran_specific__sinh_r8
 
-   specific__sinh_r8 = sinh (parm)
+   _gfortran_specific__sinh_r8 = sinh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_c10.F90 b/libgfortran/generated/_sqrt_c10.F90
index 2159a6b93aa..d6ca3b64dab 100644
--- a/libgfortran/generated/_sqrt_c10.F90
+++ b/libgfortran/generated/_sqrt_c10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_10)
 #ifdef HAVE_CSQRTL
 
-elemental function specific__sqrt_c10 (parm)
+elemental function _gfortran_specific__sqrt_c10 (parm)
    complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__sqrt_c10
+   complex (kind=10) :: _gfortran_specific__sqrt_c10
 
-   specific__sqrt_c10 = sqrt (parm)
+   _gfortran_specific__sqrt_c10 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_c16.F90 b/libgfortran/generated/_sqrt_c16.F90
index 2ee9c83a1bb..247bdf5f09d 100644
--- a/libgfortran/generated/_sqrt_c16.F90
+++ b/libgfortran/generated/_sqrt_c16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_16)
 #ifdef HAVE_CSQRTL
 
-elemental function specific__sqrt_c16 (parm)
+elemental function _gfortran_specific__sqrt_c16 (parm)
    complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__sqrt_c16
+   complex (kind=16) :: _gfortran_specific__sqrt_c16
 
-   specific__sqrt_c16 = sqrt (parm)
+   _gfortran_specific__sqrt_c16 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_c4.F90 b/libgfortran/generated/_sqrt_c4.F90
index 1e88a3d6e5d..7a8195f9dca 100644
--- a/libgfortran/generated/_sqrt_c4.F90
+++ b/libgfortran/generated/_sqrt_c4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_4)
 #ifdef HAVE_CSQRTF
 
-elemental function specific__sqrt_c4 (parm)
+elemental function _gfortran_specific__sqrt_c4 (parm)
    complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__sqrt_c4
+   complex (kind=4) :: _gfortran_specific__sqrt_c4
 
-   specific__sqrt_c4 = sqrt (parm)
+   _gfortran_specific__sqrt_c4 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_c8.F90 b/libgfortran/generated/_sqrt_c8.F90
index edd5e399b0b..1e1e153a91f 100644
--- a/libgfortran/generated/_sqrt_c8.F90
+++ b/libgfortran/generated/_sqrt_c8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_COMPLEX_8)
 #ifdef HAVE_CSQRT
 
-elemental function specific__sqrt_c8 (parm)
+elemental function _gfortran_specific__sqrt_c8 (parm)
    complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__sqrt_c8
+   complex (kind=8) :: _gfortran_specific__sqrt_c8
 
-   specific__sqrt_c8 = sqrt (parm)
+   _gfortran_specific__sqrt_c8 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_r10.F90 b/libgfortran/generated/_sqrt_r10.F90
index 2ea81ba56cb..b770433ae9f 100644
--- a/libgfortran/generated/_sqrt_r10.F90
+++ b/libgfortran/generated/_sqrt_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_SQRTL
 
-elemental function specific__sqrt_r10 (parm)
+elemental function _gfortran_specific__sqrt_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sqrt_r10
+   real (kind=10) :: _gfortran_specific__sqrt_r10
 
-   specific__sqrt_r10 = sqrt (parm)
+   _gfortran_specific__sqrt_r10 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_r16.F90 b/libgfortran/generated/_sqrt_r16.F90
index 5ecd027bd1b..8e796f8b3a2 100644
--- a/libgfortran/generated/_sqrt_r16.F90
+++ b/libgfortran/generated/_sqrt_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_SQRTL
 
-elemental function specific__sqrt_r16 (parm)
+elemental function _gfortran_specific__sqrt_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sqrt_r16
+   real (kind=16) :: _gfortran_specific__sqrt_r16
 
-   specific__sqrt_r16 = sqrt (parm)
+   _gfortran_specific__sqrt_r16 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_r4.F90 b/libgfortran/generated/_sqrt_r4.F90
index 43c710f0dd2..2181cd09d78 100644
--- a/libgfortran/generated/_sqrt_r4.F90
+++ b/libgfortran/generated/_sqrt_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_SQRTF
 
-elemental function specific__sqrt_r4 (parm)
+elemental function _gfortran_specific__sqrt_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sqrt_r4
+   real (kind=4) :: _gfortran_specific__sqrt_r4
 
-   specific__sqrt_r4 = sqrt (parm)
+   _gfortran_specific__sqrt_r4 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_sqrt_r8.F90 b/libgfortran/generated/_sqrt_r8.F90
index 2f710962b8f..47253da4e32 100644
--- a/libgfortran/generated/_sqrt_r8.F90
+++ b/libgfortran/generated/_sqrt_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_SQRT
 
-elemental function specific__sqrt_r8 (parm)
+elemental function _gfortran_specific__sqrt_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sqrt_r8
+   real (kind=8) :: _gfortran_specific__sqrt_r8
 
-   specific__sqrt_r8 = sqrt (parm)
+   _gfortran_specific__sqrt_r8 = sqrt (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tan_r10.F90 b/libgfortran/generated/_tan_r10.F90
index d4c06ae4a86..f2829e72ece 100644
--- a/libgfortran/generated/_tan_r10.F90
+++ b/libgfortran/generated/_tan_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_TANL
 
-elemental function specific__tan_r10 (parm)
+elemental function _gfortran_specific__tan_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__tan_r10
+   real (kind=10) :: _gfortran_specific__tan_r10
 
-   specific__tan_r10 = tan (parm)
+   _gfortran_specific__tan_r10 = tan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tan_r16.F90 b/libgfortran/generated/_tan_r16.F90
index 5a6f61a3f9d..dcc7f8e8c09 100644
--- a/libgfortran/generated/_tan_r16.F90
+++ b/libgfortran/generated/_tan_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_TANL
 
-elemental function specific__tan_r16 (parm)
+elemental function _gfortran_specific__tan_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__tan_r16
+   real (kind=16) :: _gfortran_specific__tan_r16
 
-   specific__tan_r16 = tan (parm)
+   _gfortran_specific__tan_r16 = tan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tan_r4.F90 b/libgfortran/generated/_tan_r4.F90
index ee8f438d7e2..638cc8da750 100644
--- a/libgfortran/generated/_tan_r4.F90
+++ b/libgfortran/generated/_tan_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_TANF
 
-elemental function specific__tan_r4 (parm)
+elemental function _gfortran_specific__tan_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__tan_r4
+   real (kind=4) :: _gfortran_specific__tan_r4
 
-   specific__tan_r4 = tan (parm)
+   _gfortran_specific__tan_r4 = tan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tan_r8.F90 b/libgfortran/generated/_tan_r8.F90
index f2e357b2dd1..cea72250666 100644
--- a/libgfortran/generated/_tan_r8.F90
+++ b/libgfortran/generated/_tan_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_TAN
 
-elemental function specific__tan_r8 (parm)
+elemental function _gfortran_specific__tan_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__tan_r8
+   real (kind=8) :: _gfortran_specific__tan_r8
 
-   specific__tan_r8 = tan (parm)
+   _gfortran_specific__tan_r8 = tan (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tanh_r10.F90 b/libgfortran/generated/_tanh_r10.F90
index 5d04f65475d..6994238888a 100644
--- a/libgfortran/generated/_tanh_r10.F90
+++ b/libgfortran/generated/_tanh_r10.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_10)
 #ifdef HAVE_TANHL
 
-elemental function specific__tanh_r10 (parm)
+elemental function _gfortran_specific__tanh_r10 (parm)
    real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__tanh_r10
+   real (kind=10) :: _gfortran_specific__tanh_r10
 
-   specific__tanh_r10 = tanh (parm)
+   _gfortran_specific__tanh_r10 = tanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tanh_r16.F90 b/libgfortran/generated/_tanh_r16.F90
index 9a858b5c071..d7dca680700 100644
--- a/libgfortran/generated/_tanh_r16.F90
+++ b/libgfortran/generated/_tanh_r16.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_16)
 #ifdef HAVE_TANHL
 
-elemental function specific__tanh_r16 (parm)
+elemental function _gfortran_specific__tanh_r16 (parm)
    real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__tanh_r16
+   real (kind=16) :: _gfortran_specific__tanh_r16
 
-   specific__tanh_r16 = tanh (parm)
+   _gfortran_specific__tanh_r16 = tanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tanh_r4.F90 b/libgfortran/generated/_tanh_r4.F90
index 0872fe66540..098d9b86848 100644
--- a/libgfortran/generated/_tanh_r4.F90
+++ b/libgfortran/generated/_tanh_r4.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_4)
 #ifdef HAVE_TANHF
 
-elemental function specific__tanh_r4 (parm)
+elemental function _gfortran_specific__tanh_r4 (parm)
    real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__tanh_r4
+   real (kind=4) :: _gfortran_specific__tanh_r4
 
-   specific__tanh_r4 = tanh (parm)
+   _gfortran_specific__tanh_r4 = tanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/_tanh_r8.F90 b/libgfortran/generated/_tanh_r8.F90
index 40a6668e403..ca7c7ccc71d 100644
--- a/libgfortran/generated/_tanh_r8.F90
+++ b/libgfortran/generated/_tanh_r8.F90
@@ -40,11 +40,11 @@
 #if defined (HAVE_GFC_REAL_8)
 #ifdef HAVE_TANH
 
-elemental function specific__tanh_r8 (parm)
+elemental function _gfortran_specific__tanh_r8 (parm)
    real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__tanh_r8
+   real (kind=8) :: _gfortran_specific__tanh_r8
 
-   specific__tanh_r8 = tanh (parm)
+   _gfortran_specific__tanh_r8 = tanh (parm)
 end function
 
 #endif
diff --git a/libgfortran/generated/misc_specifics.F90 b/libgfortran/generated/misc_specifics.F90
index a3b103b924a..29e999f7651 100644
--- a/libgfortran/generated/misc_specifics.F90
+++ b/libgfortran/generated/misc_specifics.F90
@@ -36,176 +36,176 @@
 
 
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_4 (parm)
+elemental function _gfortran_specific__nint_4_4 (parm)
    real (kind=4) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_4
-   specific__nint_4_4 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_4
+   _gfortran_specific__nint_4_4 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_8 (parm)
+elemental function _gfortran_specific__nint_4_8 (parm)
    real (kind=8) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_8
-   specific__nint_4_8 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_8
+   _gfortran_specific__nint_4_8 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_10 (parm)
+elemental function _gfortran_specific__nint_4_10 (parm)
    real (kind=10) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_10
-   specific__nint_4_10 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_10
+   _gfortran_specific__nint_4_10 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_16 (parm)
+elemental function _gfortran_specific__nint_4_16 (parm)
    real (kind=16) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_16
-   specific__nint_4_16 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_16
+   _gfortran_specific__nint_4_16 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_4 (parm)
+elemental function _gfortran_specific__nint_8_4 (parm)
    real (kind=4) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_4
-   specific__nint_8_4 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_4
+   _gfortran_specific__nint_8_4 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_8 (parm)
+elemental function _gfortran_specific__nint_8_8 (parm)
    real (kind=8) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_8
-   specific__nint_8_8 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_8
+   _gfortran_specific__nint_8_8 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_10 (parm)
+elemental function _gfortran_specific__nint_8_10 (parm)
    real (kind=10) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_10
-   specific__nint_8_10 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_10
+   _gfortran_specific__nint_8_10 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_16 (parm)
+elemental function _gfortran_specific__nint_8_16 (parm)
    real (kind=16) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_16
-   specific__nint_8_16 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_16
+   _gfortran_specific__nint_8_16 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_4 (parm)
+elemental function _gfortran_specific__nint_16_4 (parm)
    real (kind=4) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_4
-   specific__nint_16_4 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_4
+   _gfortran_specific__nint_16_4 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_8 (parm)
+elemental function _gfortran_specific__nint_16_8 (parm)
    real (kind=8) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_8
-   specific__nint_16_8 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_8
+   _gfortran_specific__nint_16_8 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_10 (parm)
+elemental function _gfortran_specific__nint_16_10 (parm)
    real (kind=10) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_10
-   specific__nint_16_10 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_10
+   _gfortran_specific__nint_16_10 = nint (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_16 (parm)
+elemental function _gfortran_specific__nint_16_16 (parm)
    real (kind=16) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_16
-   specific__nint_16_16 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_16
+   _gfortran_specific__nint_16_16 = nint (parm)
 end function
 #endif
 
 
 
 #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__char_1_i4 (parm)
+elemental function _gfortran_specific__char_1_i4 (parm)
    integer (kind=4) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i4
-   specific__char_1_i4 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i4
+   _gfortran_specific__char_1_i4 = char (parm, kind=1)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__char_1_i8 (parm)
+elemental function _gfortran_specific__char_1_i8 (parm)
    integer (kind=8) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i8
-   specific__char_1_i8 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i8
+   _gfortran_specific__char_1_i8 = char (parm, kind=1)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__char_1_i16 (parm)
+elemental function _gfortran_specific__char_1_i16 (parm)
    integer (kind=16) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i16
-   specific__char_1_i16 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i16
+   _gfortran_specific__char_1_i16 = char (parm, kind=1)
 end function
 #endif
 
 
 
 #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__len_1_i4 (parm)
+elemental function _gfortran_specific__len_1_i4 (parm)
    character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=4) :: specific__len_1_i4
-   specific__len_1_i4 = len (parm)
+   integer (kind=4) :: _gfortran_specific__len_1_i4
+   _gfortran_specific__len_1_i4 = len (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__len_1_i8 (parm)
+elemental function _gfortran_specific__len_1_i8 (parm)
    character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=8) :: specific__len_1_i8
-   specific__len_1_i8 = len (parm)
+   integer (kind=8) :: _gfortran_specific__len_1_i8
+   _gfortran_specific__len_1_i8 = len (parm)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__len_1_i16 (parm)
+elemental function _gfortran_specific__len_1_i16 (parm)
    character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=16) :: specific__len_1_i16
-   specific__len_1_i16 = len (parm)
+   integer (kind=16) :: _gfortran_specific__len_1_i16
+   _gfortran_specific__len_1_i16 = len (parm)
 end function
 #endif
 
 
 
 #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__index_1_i4 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i4 (parm1, parm2)
    character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=4) :: specific__index_1_i4
-   specific__index_1_i4 = index (parm1, parm2)
+   integer (kind=4) :: _gfortran_specific__index_1_i4
+   _gfortran_specific__index_1_i4 = index (parm1, parm2)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__index_1_i8 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i8 (parm1, parm2)
    character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=8) :: specific__index_1_i8
-   specific__index_1_i8 = index (parm1, parm2)
+   integer (kind=8) :: _gfortran_specific__index_1_i8
+   _gfortran_specific__index_1_i8 = index (parm1, parm2)
 end function
 #endif
 
 #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__index_1_i16 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i16 (parm1, parm2)
    character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=16) :: specific__index_1_i16
-   specific__index_1_i16 = index (parm1, parm2)
+   integer (kind=16) :: _gfortran_specific__index_1_i16
+   _gfortran_specific__index_1_i16 = index (parm1, parm2)
 end function
 #endif