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 468 additions and 276 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
......
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