Skip to content

R
riscv-gcc-1
Commit e6472bce by Francois-Xavier Coudert Committed by François-Xavier Coudert
Options

gfortran.h (gfc_options_t): Add flag_allow_leading_underscore. 

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

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

From-SVN: r121007
parent b153d3e1
Showing with 709 additions and 517 deletions
gcc/fortran/ChangeLog
2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* 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.
2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/30446
* options.c (gfc_handle_module_path_options): Path used in -J
option is now added to the module search path.
......
gcc/fortran/gfortran.h
......@@ -1656,6 +1656,7 @@ typedef struct
int flag_f2c;
int flag_automatic;
int flag_backslash;
int flag_allow_leading_underscore;
int flag_dump_core;
int flag_external_blas;
int blas_matmul_limit;
......
gcc/fortran/lang.opt
......@@ -81,6 +81,10 @@ fall-intrinsics
Fortran RejectNegative
All intrinsics procedures are available regardless of selected standard
fallow-leading-underscore
Fortran Undocumented
; For internal use only: allow the first character of symbol names to be an underscore
fautomatic
Fortran
Do not treat local variables and COMMON blocks as if they were named in SAVE statements
......
gcc/fortran/match.c
......@@ -392,7 +392,7 @@ gfc_match_name (char *buffer)
gfc_gobble_whitespace ();
c = gfc_next_char ();
if (!ISALPHA (c))
if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore)))
{
if (gfc_error_flag_test() == 0)
gfc_error ("Invalid character in name at %C");
......
gcc/fortran/options.c
......@@ -84,6 +84,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
gfc_option.flag_preprocessed = 0;
gfc_option.flag_automatic = 1;
gfc_option.flag_backslash = 1;
gfc_option.flag_allow_leading_underscore = 0;
gfc_option.flag_dump_core = 0;
gfc_option.flag_external_blas = 0;
gfc_option.blas_matmul_limit = 30;
......@@ -450,6 +451,10 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.flag_automatic = value;
break;
case OPT_fallow_leading_underscore:
gfc_option.flag_allow_leading_underscore = value;
break;
case OPT_fbackslash:
gfc_option.flag_backslash = value;
break;
......
gcc/fortran/symbol.c
......@@ -202,6 +202,12 @@ gfc_get_default_type (gfc_symbol * sym, gfc_namespace * ns)
char letter;
letter = sym->name[0];
if (gfc_option.flag_allow_leading_underscore && letter == '_')
gfc_internal_error ("Option -fallow_leading_underscore is for use only by "
"gfortran developers, and should not be used for "
"implicitly typed variables");
if (letter < 'a' || letter > 'z')
gfc_internal_error ("gfc_get_default_type(): Bad symbol");
......
gcc/fortran/trans-decl.c
......@@ -1060,7 +1060,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
gfc_expr e;
gfc_intrinsic_sym *isym;
gfc_expr argexpr;
char s[GFC_MAX_SYMBOL_LEN + 13]; /* "f2c_specific" and '\0'. */
char s[GFC_MAX_SYMBOL_LEN + 23]; /* "_gfortran_f2c_specific" and '\0'. */
tree name;
tree mangled_name;
......@@ -1108,10 +1108,10 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
{
/* Specific which needs a different implementation if f2c
calling conventions are used. */
sprintf (s, "f2c_specific%s", e.value.function.name);
sprintf (s, "_gfortran_f2c_specific%s", e.value.function.name);
}
else
sprintf (s, "specific%s", e.value.function.name);
sprintf (s, "_gfortran_specific%s", e.value.function.name);
name = get_identifier (s);
mangled_name = name;
......@@ -2082,13 +2082,15 @@ gfc_build_intrinsic_function_decls (void)
gfc_charlen_type_node, pchar_type_node);
gfor_fndecl_si_kind =
gfc_build_library_function_decl (get_identifier ("selected_int_kind"),
gfc_build_library_function_decl (get_identifier
(PREFIX("selected_int_kind")),
gfc_int4_type_node,
1,
pvoid_type_node);
gfor_fndecl_sr_kind =
gfc_build_library_function_decl (get_identifier ("selected_real_kind"),
gfc_build_library_function_decl (get_identifier
(PREFIX("selected_real_kind")),
gfc_int4_type_node,
2, pvoid_type_node,
pvoid_type_node);
......
libgfortran/ChangeLog
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
......
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) \
......
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 $@
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
......
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
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
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)
......
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
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
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
')')
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
......
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment