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