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

147 files changed, 670 insertions, 511 deletions

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index bc303f3..a138750 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,154 @@
+2007-01-20  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* 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.
+
 2007-01-19  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR libfortran/26893
diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am
index c1cb3ac..65cc004 100644
--- a/libgfortran/Makefile.am
+++ b/libgfortran/Makefile.am
@@ -597,6 +597,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
 # Logical matmul doesn't vectorize.
 $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops
 
+# Add the -fallow-leading-underscore option when needed
+$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore
+selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore
+
 BUILT_SOURCES=$(gfor_built_src) $(gfor_built_specific_src) \
     $(gfor_built_specific2_src) $(gfor_misc_specifics)
 libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \
diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in
index d8ca09d..acc4e85 100644
--- a/libgfortran/Makefile.in
+++ b/libgfortran/Makefile.in
@@ -4518,6 +4518,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
 # Logical matmul doesn't vectorize.
 $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops
 
+# Add the -fallow-leading-underscore option when needed
+$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore
+selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore
+
 kinds.h: $(srcdir)/mk-kinds-h.sh
 	$(SHELL) $(srcdir)/mk-kinds-h.sh '$(FCCOMPILE)' > $@ || rm $@
 
diff --git a/libgfortran/generated/_abs_c10.F90 b/libgfortran/generated/_abs_c10.F90
index 33a5895..791cd5b 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 021546d..ee94cb0 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 6def6b1..bc25d6e 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 bd549a5..4648dd1 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 afbb67f..72240c2 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 4037d34..5f3a1e8 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 1f2e424..87f9870 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 4d76a1e..4b070d3 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 3c7d8a7..10edfba 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 31ef426..02ebd43 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 c0b4ce1..0d7b620 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 d7be7c8..4225572 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 f0c6dde0..90525be 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 9e1b97b..16478e4 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 3bded77..5866b81 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 07bc332..2f7c93d 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 295a366..010a42e 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 717ce40..f6c2483 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 d03c73b..e785507 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 d6a6f0b..a406cff 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 717f820..32858cf 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 241e7b9..118a742 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 76ad7e9..112c688 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 2448baa..2853c0c 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 9903ad4..5208c4e 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 4fb7145..8318dd9 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 f860c7a..9f2d712 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 1652417..29d11b31 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 48e1dff..bc74dcc 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 c1c955c..f808b5d 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 6c72678..33495dc 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 80939fa..cccc6c3 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 76e37b6..6b6f26d 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 cd77113..da9c5e2 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 c31f2bc..6291044 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 c6a791b..24cf6b6 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 3b2a28b..09a1f49 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 de47515..f821bc7 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 0a6d0bd..ab3f70a 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 cc9a170..d7ea392 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 f56aabe..b2a6d60 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 52ecf79..bfeb726 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 752b165..ef83c9d 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 195d941..2823933 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 2691a34..5b4ccb3 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 4e88ab2..74dc979 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 a99de95..55b45bd 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 75cdf99..9cee6dd 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 bc6e71c..9322e6a 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 edbd419..f08764a 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 05dd808..b387108 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 e03a21b..df082e9 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 876575e..69565bd 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 ca615ec..5dadbec 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 b58de8e..bac101f 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 018394c..e926d86 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 ac6bc87..f98ff0f 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 e494695..3e7e243 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 d3daf6e..6a7d1fa 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 142cb4b..c68230c 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 4346397..e23e7e7 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 ddf2509..6ae1ead 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 d45a11a..0addadc 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 9c7d3fb..c823290 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 ac28f99..cb20cd3 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 289c9bc..6559d77 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 6b47452..00ff584 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 55a1a52..acfc3a4 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 2fd8658..16ef060 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 e861d9e..01ca82a 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 1e7743d..1d14000 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 97a0488..1f435b3 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 465b284..0c4cd5d 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 3e6b337..f23b0cc 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 bcf1f2b..126f55c 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 58527bc..ad7d4dc 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 6fba675..866820b 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 cbc82a1..2112ce8 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 86bf749..03e8fa0 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 4aaee9e..a88733c 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 d76fb14..0d71d2e 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 d529810..e0e2c8d 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 19aeac5..f293489 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 c03002a..f690879 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 c772527..bcadf24 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 3965709..7d55ad7 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 e3f6934..90e415b 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 776140a..d9db7ce 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 923bdd5..550ed1d 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 0df0dd8..ee26dc2 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 d893881..ca7d337 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 5013656..7bd4038 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 6a74237..b4e6217 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 8383bbf..a0b149b 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 571db40..fd851b8 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 ec6f81d..7f5bcb2 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 e34278b..94f6c7b 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 9826d12..a4cf1d0 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 15c2b81..6ae2c4f 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 6742ee4..dfb0f07 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 3cc7e16..50df377 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 50e492c..3e642b2 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 d9ea551..d637aae 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 241fb8b..00d0eda 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 002330f..b165526 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 8377969..5e66148 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 e11f15d..6428b9a 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 66f8dee..452132d 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 2c34b3c..6384598e 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 75a7108..4e8f445 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 0efc127..7f4b6be 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 73a27a4..9abd4a1 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 55f5871..f201962 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 3757cc0b..10c86a8 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 4fea103..b586928 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 e35c3d1..cb8e257 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 7aa5e98..67609d6 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 6ea6947..6274a59 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 1101deb..116f205 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 63eb8d5..bb4ceae 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 2159a6b..d6ca3b6 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 2ee9c83..247bdf5 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 1e88a3d..7a8195f 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 edd5e39..1e1e153 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 2ea81ba..b770433 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 5ecd027..8e796f8 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 43c710f..2181cd0 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 2f71096..47253da 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 d4c06ae..f2829e7 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 5a6f61a..dcc7f8e 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 ee8f438..638cc8d 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 f2e357b..cea7225 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 5d04f65..6994238 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 9a858b5..d7dca68 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 0872fe6..098d9b8 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 40a6668..ca7c7cc 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 a3b103b..29e999f 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
 
diff --git a/libgfortran/intrinsics/dprod_r8.f90 b/libgfortran/intrinsics/dprod_r8.f90
index 30110b0..44c63c4 100644
--- a/libgfortran/intrinsics/dprod_r8.f90
+++ b/libgfortran/intrinsics/dprod_r8.f90
@@ -19,9 +19,9 @@
 !Boston, MA 02110-1301, USA.
 
 
-elemental function specific__dprod_r8 (p1, p2)
+elemental function _gfortran_specific__dprod_r8 (p1, p2)
    real (kind=4), intent (in) :: p1, p2
-   real (kind=8) :: specific__dprod_r8
+   real (kind=8) :: _gfortran_specific__dprod_r8
 
-   specific__dprod_r8 = dprod (p1, p2)
+   _gfortran_specific__dprod_r8 = dprod (p1, p2)
 end function
diff --git a/libgfortran/intrinsics/f2c_specifics.F90 b/libgfortran/intrinsics/f2c_specifics.F90
index c3f906d..85b539e 100644
--- a/libgfortran/intrinsics/f2c_specifics.F90
+++ b/libgfortran/intrinsics/f2c_specifics.F90
@@ -41,7 +41,7 @@
 
 ! one argument functions
 #define REAL_HEAD(NAME) \
-elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res);
+elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (parm) result(res);
 
 #define REAL_BODY(NAME) \
   REAL, intent (in) :: parm; \
@@ -50,7 +50,7 @@ elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res);
 end function
 
 #define COMPLEX_HEAD(NAME) \
-subroutine f2c_specific__/**/NAME/**/_c4 (res, parm);
+subroutine _gfortran_f2c_specific__/**/NAME/**/_c4 (res, parm);
 
 #define COMPLEX_BODY(NAME) \
   COMPLEX, intent (in) :: parm; \
@@ -59,7 +59,7 @@ subroutine f2c_specific__/**/NAME/**/_c4 (res, parm);
 end subroutine
 
 #define DCOMPLEX_HEAD(NAME) \
-subroutine f2c_specific__/**/NAME/**/_c8 (res, parm);
+subroutine _gfortran_f2c_specific__/**/NAME/**/_c8 (res, parm);
 
 #define DCOMPLEX_BODY(NAME) \
   DOUBLE COMPLEX, intent (in) :: parm; \
@@ -71,7 +71,7 @@ REAL_HEAD(abs)
 REAL_BODY(abs)
 
 ! abs is special in that the result is real
-elemental function f2c_specific__abs_c4 (parm) result (res)
+elemental function _gfortran_f2c_specific__abs_c4 (parm) result (res)
   COMPLEX, intent(in) :: parm
   DOUBLE PRECISION :: res
   res = abs(parm)
@@ -79,16 +79,16 @@ end function
 
 
 ! aimag is special in that the result is real
-elemental function f2c_specific__aimag_c4 (parm)
+elemental function _gfortran_f2c_specific__aimag_c4 (parm)
   complex(kind=4), intent(in) :: parm
-  double precision :: f2c_specific__aimag_c4
-  f2c_specific__aimag_c4 = aimag(parm)
+  double precision :: _gfortran_f2c_specific__aimag_c4
+  _gfortran_f2c_specific__aimag_c4 = aimag(parm)
 end function
 
-elemental function f2c_specific__aimag_c8 (parm)
+elemental function _gfortran_f2c_specific__aimag_c8 (parm)
   complex(kind=8), intent(in) :: parm
-  double precision :: f2c_specific__aimag_c8
-  f2c_specific__aimag_c8 = aimag(parm)
+  double precision :: _gfortran_f2c_specific__aimag_c8
+  _gfortran_f2c_specific__aimag_c8 = aimag(parm)
 end function
 
 
@@ -168,7 +168,7 @@ REAL_BODY(anint)
 
 ! two argument functions
 #define REAL2_HEAD(NAME) \
-elemental function f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res);
+elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res);
 
 #define REAL2_BODY(NAME) \
   REAL, intent (in) :: p1, p2; \
@@ -189,12 +189,12 @@ REAL2_HEAD(mod)
 REAL2_BODY(mod)
 
 ! conjg is special-cased because it is not suffixed _c4 but _4
-subroutine f2c_specific__conjg_4 (res, parm)
+subroutine _gfortran_f2c_specific__conjg_4 (res, parm)
   COMPLEX, intent (in) :: parm
   COMPLEX, intent (out) :: res
   res = conjg (parm)
 end subroutine
-subroutine f2c_specific__conjg_8 (res, parm)
+subroutine _gfortran_f2c_specific__conjg_8 (res, parm)
   DOUBLE COMPLEX, intent (in) :: parm
   DOUBLE COMPLEX, intent (out) :: res
   res = conjg (parm)
diff --git a/libgfortran/intrinsics/selected_int_kind.f90 b/libgfortran/intrinsics/selected_int_kind.f90
index 80bc25b..bcb6759 100644
--- a/libgfortran/intrinsics/selected_int_kind.f90
+++ b/libgfortran/intrinsics/selected_int_kind.f90
@@ -19,10 +19,10 @@
 !Boston, MA 02110-1301, USA.
 !
 
-function selected_int_kind (r)
+function _gfortran_selected_int_kind (r)
   implicit none
   integer, intent (in) :: r
-  integer :: selected_int_kind
+  integer :: _gfortran_selected_int_kind
   integer :: i
   ! Integer kind_range table
   type :: int_info
@@ -34,10 +34,10 @@ function selected_int_kind (r)
 
   do i = 1, c
     if (r <= int_infos (i) % range) then
-      selected_int_kind = int_infos (i) % kind
+      _gfortran_selected_int_kind = int_infos (i) % kind
       return
     end if
   end do
-  selected_int_kind = -1
+  _gfortran_selected_int_kind = -1
   return
 end function
diff --git a/libgfortran/intrinsics/selected_real_kind.f90 b/libgfortran/intrinsics/selected_real_kind.f90
index 4cc2a09..2ace5c0 100644
--- a/libgfortran/intrinsics/selected_real_kind.f90
+++ b/libgfortran/intrinsics/selected_real_kind.f90
@@ -19,10 +19,10 @@
 !Boston, MA 02110-1301, USA.
 !
 
-function selected_real_kind (p, r)
+function _gfortran_selected_real_kind (p, r)
   implicit none
   integer, optional, intent (in) :: p, r
-  integer :: selected_real_kind
+  integer :: _gfortran_selected_real_kind
   integer :: i, p2, r2
   logical :: found_p, found_r
   ! Real kind_precision_range table
@@ -34,7 +34,7 @@ function selected_real_kind (p, r)
 
   include "selected_real_kind.inc"
 
-  selected_real_kind = 0
+  _gfortran_selected_real_kind = 0
   p2 = 0
   r2 = 0
   found_p = .false.
@@ -49,13 +49,13 @@ function selected_real_kind (p, r)
     if (p2 <= real_infos (i) % precision) found_p = .true.
     if (r2 <= real_infos (i) % range) found_r = .true.
     if (found_p .and. found_r) then
-      selected_real_kind = real_infos (i) % kind
+      _gfortran_selected_real_kind = real_infos (i) % kind
       return
     end if
   end do
 
-  if (.not. (found_p)) selected_real_kind = selected_real_kind - 1
-  if (.not. (found_r)) selected_real_kind = selected_real_kind - 2
+  if (.not. (found_p)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 1
+  if (.not. (found_r)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 2
 
   return
 end function
diff --git a/libgfortran/m4/misc_specifics.m4 b/libgfortran/m4/misc_specifics.m4
index dff63d8..3e40bf0 100644
--- a/libgfortran/m4/misc_specifics.m4
+++ b/libgfortran/m4/misc_specifics.m4
@@ -22,10 +22,10 @@ divert
 dnl   NINT specifics
 foreach(`ikind', `(4, 8, 16)', `foreach(`rkind', `(4, 8, 10, 16)', `
 `#if defined (HAVE_GFC_REAL_'rkind`) && defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__nint_`'ikind`_'rkind (parm)
+elemental function _gfortran_specific__nint_`'ikind`_'rkind (parm)
    real (kind=rkind) , intent (in) :: parm
-   integer (kind=ikind) :: specific__nint_`'ikind`_'rkind
-   specific__nint_`'ikind`_'rkind = nint (parm)
+   integer (kind=ikind) :: _gfortran_specific__nint_`'ikind`_'rkind
+   _gfortran_specific__nint_`'ikind`_'rkind = nint (parm)
 end function
 #endif
 ')')
@@ -33,10 +33,10 @@ end function
 dnl   CHAR specifics
 foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
 `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__char_`'ckind`_i'ikind (parm)
+elemental function _gfortran_specific__char_`'ckind`_i'ikind (parm)
    integer (kind=ikind) , intent (in) :: parm
-   character (kind=ckind,len=1) :: specific__char_`'ckind`_i'ikind
-   specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)'
+   character (kind=ckind,len=1) :: _gfortran_specific__char_`'ckind`_i'ikind
+   _gfortran_specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)'
 end function
 #endif
 ')')
@@ -44,10 +44,10 @@ end function
 dnl   LEN specifics
 foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
 `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__len_`'ckind`_i'ikind (parm)
+elemental function _gfortran_specific__len_`'ckind`_i'ikind (parm)
    character (kind=ckind,len=*) , intent (in) :: parm
-   integer (kind=ikind) :: specific__len_`'ckind`_i'ikind
-   specific__len_`'ckind`_i'ikind` = len (parm)'
+   integer (kind=ikind) :: _gfortran_specific__len_`'ckind`_i'ikind
+   _gfortran_specific__len_`'ckind`_i'ikind` = len (parm)'
 end function
 #endif
 ')')
@@ -55,10 +55,10 @@ end function
 dnl   INDEX specifics
 foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
 `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__index_`'ckind`_i'ikind (parm1, parm2)
+elemental function _gfortran_specific__index_`'ckind`_i'ikind (parm1, parm2)
    character (kind=ckind,len=*) , intent (in) :: parm1, parm2
-   integer (kind=ikind) :: specific__index_`'ckind`_i'ikind
-   specific__index_`'ckind`_i'ikind` = index (parm1, parm2)'
+   integer (kind=ikind) :: _gfortran_specific__index_`'ckind`_i'ikind
+   _gfortran_specific__index_`'ckind`_i'ikind` = index (parm1, parm2)'
 end function
 #endif
 ')')
diff --git a/libgfortran/m4/specific.m4 b/libgfortran/m4/specific.m4
index c8c9152..ebc8983 100644
--- a/libgfortran/m4/specific.m4
+++ b/libgfortran/m4/specific.m4
@@ -7,7 +7,7 @@ define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse(
 define(atype_name, get_typename(atype_letter,atype_kind))dnl
 define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl
 define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),ifelse(name,aimag,ifelse(atype_letter,c,r,atype_letter),atype_letter)),atype_kind))dnl
-define(function_name,ifelse(name,conjg,`specific__conjg_'atype_kind,`specific__'name`_'atype_code))dnl
+define(function_name,ifelse(name,conjg,`_gfortran_specific__conjg_'atype_kind,`_gfortran_specific__'name`_'atype_code))dnl
 
 define(type,ifelse(atype_letter,l,LOGICAL,ifelse(atype_letter,i,INTEGER,ifelse(atype_letter,r,REAL,ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl
 define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl
diff --git a/libgfortran/m4/specific2.m4 b/libgfortran/m4/specific2.m4
index fa26f39..d05e8db 100644
--- a/libgfortran/m4/specific2.m4
+++ b/libgfortran/m4/specific2.m4
@@ -6,7 +6,7 @@ define(get_typename2, `$1 (kind=$2)')dnl
 define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl
 define(atype_name, get_typename(atype_letter,atype_kind))dnl
 define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl
-define(function_name,`specific__'name`_'atype_code)dnl
+define(function_name,`_gfortran_specific__'name`_'atype_code)dnl
 
 define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl