Commit e6472bce by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr> 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 PR fortran/30446
* options.c (gfc_handle_module_path_options): Path used in -J * options.c (gfc_handle_module_path_options): Path used in -J
option is now added to the module search path. option is now added to the module search path.
......
...@@ -1656,6 +1656,7 @@ typedef struct ...@@ -1656,6 +1656,7 @@ typedef struct
int flag_f2c; int flag_f2c;
int flag_automatic; int flag_automatic;
int flag_backslash; int flag_backslash;
int flag_allow_leading_underscore;
int flag_dump_core; int flag_dump_core;
int flag_external_blas; int flag_external_blas;
int blas_matmul_limit; int blas_matmul_limit;
......
...@@ -81,6 +81,10 @@ fall-intrinsics ...@@ -81,6 +81,10 @@ fall-intrinsics
Fortran RejectNegative Fortran RejectNegative
All intrinsics procedures are available regardless of selected standard 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 fautomatic
Fortran Fortran
Do not treat local variables and COMMON blocks as if they were named in SAVE statements Do not treat local variables and COMMON blocks as if they were named in SAVE statements
......
...@@ -392,7 +392,7 @@ gfc_match_name (char *buffer) ...@@ -392,7 +392,7 @@ gfc_match_name (char *buffer)
gfc_gobble_whitespace (); gfc_gobble_whitespace ();
c = gfc_next_char (); c = gfc_next_char ();
if (!ISALPHA (c)) if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore)))
{ {
if (gfc_error_flag_test() == 0) if (gfc_error_flag_test() == 0)
gfc_error ("Invalid character in name at %C"); gfc_error ("Invalid character in name at %C");
......
...@@ -84,6 +84,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, ...@@ -84,6 +84,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
gfc_option.flag_preprocessed = 0; gfc_option.flag_preprocessed = 0;
gfc_option.flag_automatic = 1; gfc_option.flag_automatic = 1;
gfc_option.flag_backslash = 1; gfc_option.flag_backslash = 1;
gfc_option.flag_allow_leading_underscore = 0;
gfc_option.flag_dump_core = 0; gfc_option.flag_dump_core = 0;
gfc_option.flag_external_blas = 0; gfc_option.flag_external_blas = 0;
gfc_option.blas_matmul_limit = 30; gfc_option.blas_matmul_limit = 30;
...@@ -450,6 +451,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) ...@@ -450,6 +451,10 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.flag_automatic = value; gfc_option.flag_automatic = value;
break; break;
case OPT_fallow_leading_underscore:
gfc_option.flag_allow_leading_underscore = value;
break;
case OPT_fbackslash: case OPT_fbackslash:
gfc_option.flag_backslash = value; gfc_option.flag_backslash = value;
break; break;
......
...@@ -202,6 +202,12 @@ gfc_get_default_type (gfc_symbol * sym, gfc_namespace * ns) ...@@ -202,6 +202,12 @@ gfc_get_default_type (gfc_symbol * sym, gfc_namespace * ns)
char letter; char letter;
letter = sym->name[0]; 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') if (letter < 'a' || letter > 'z')
gfc_internal_error ("gfc_get_default_type(): Bad symbol"); gfc_internal_error ("gfc_get_default_type(): Bad symbol");
......
...@@ -1060,7 +1060,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym) ...@@ -1060,7 +1060,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
gfc_expr e; gfc_expr e;
gfc_intrinsic_sym *isym; gfc_intrinsic_sym *isym;
gfc_expr argexpr; 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 name;
tree mangled_name; tree mangled_name;
...@@ -1108,10 +1108,10 @@ gfc_get_extern_function_decl (gfc_symbol * sym) ...@@ -1108,10 +1108,10 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
{ {
/* Specific which needs a different implementation if f2c /* Specific which needs a different implementation if f2c
calling conventions are used. */ calling conventions are used. */
sprintf (s, "f2c_specific%s", e.value.function.name); sprintf (s, "_gfortran_f2c_specific%s", e.value.function.name);
} }
else else
sprintf (s, "specific%s", e.value.function.name); sprintf (s, "_gfortran_specific%s", e.value.function.name);
name = get_identifier (s); name = get_identifier (s);
mangled_name = name; mangled_name = name;
...@@ -2082,13 +2082,15 @@ gfc_build_intrinsic_function_decls (void) ...@@ -2082,13 +2082,15 @@ gfc_build_intrinsic_function_decls (void)
gfc_charlen_type_node, pchar_type_node); gfc_charlen_type_node, pchar_type_node);
gfor_fndecl_si_kind = 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, gfc_int4_type_node,
1, 1,
pvoid_type_node); pvoid_type_node);
gfor_fndecl_sr_kind = 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, gfc_int4_type_node,
2, pvoid_type_node, 2, pvoid_type_node,
pvoid_type_node); pvoid_type_node);
......
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> 2007-01-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/26893 PR libfortran/26893
......
...@@ -597,6 +597,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun ...@@ -597,6 +597,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
# Logical matmul doesn't vectorize. # Logical matmul doesn't vectorize.
$(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops $(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) \ BUILT_SOURCES=$(gfor_built_src) $(gfor_built_specific_src) \
$(gfor_built_specific2_src) $(gfor_misc_specifics) $(gfor_built_specific2_src) $(gfor_misc_specifics)
libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \ libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \
......
...@@ -4518,6 +4518,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun ...@@ -4518,6 +4518,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
# Logical matmul doesn't vectorize. # Logical matmul doesn't vectorize.
$(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops $(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 kinds.h: $(srcdir)/mk-kinds-h.sh
$(SHELL) $(srcdir)/mk-kinds-h.sh '$(FCCOMPILE)' > $@ || rm $@ $(SHELL) $(srcdir)/mk-kinds-h.sh '$(FCCOMPILE)' > $@ || rm $@
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CABSL #ifdef HAVE_CABSL
elemental function specific__abs_c10 (parm) elemental function _gfortran_specific__abs_c10 (parm)
complex (kind=10), intent (in) :: 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CABSL #ifdef HAVE_CABSL
elemental function specific__abs_c16 (parm) elemental function _gfortran_specific__abs_c16 (parm)
complex (kind=16), intent (in) :: 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CABSF #ifdef HAVE_CABSF
elemental function specific__abs_c4 (parm) elemental function _gfortran_specific__abs_c4 (parm)
complex (kind=4), intent (in) :: 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CABS #ifdef HAVE_CABS
elemental function specific__abs_c8 (parm) elemental function _gfortran_specific__abs_c8 (parm)
complex (kind=8), intent (in) :: 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_INTEGER_16) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_INTEGER_4) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_INTEGER_8) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_FABSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_FABSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_FABSF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_FABS #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ACOSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ACOSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ACOSF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ACOS #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ACOSHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ACOSHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ACOSHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ACOSH #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #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 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #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 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #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 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #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 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_TRUNCL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_TRUNCL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_TRUNCF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_TRUNC #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ROUNDL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ROUNDL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ROUNDF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ROUND #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ASINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ASINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ASINF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ASIN #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ASINHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ASINHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ASINHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ASINH #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -39,11 +39,11 @@
#ifdef HAVE_ATAN2L #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -39,11 +39,11 @@
#ifdef HAVE_ATAN2L #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -39,11 +39,11 @@
#ifdef HAVE_ATAN2F #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -39,11 +39,11 @@
#ifdef HAVE_ATAN2 #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ATANL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ATANL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ATANF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ATAN #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_ATANHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_ATANHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_ATANHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_ATANH #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CCOSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CCOSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CCOSF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CCOS #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_COSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_COSL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_COSF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_COS #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_COSHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_COSHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_COSHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_COSH #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CEXPL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CEXPL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CEXPF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CEXP #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_EXPL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_EXPL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_EXPF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_EXP #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_LOG10L #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_LOG10L #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_LOG10F #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_LOG10 #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CLOGL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CLOGL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CLOGF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CLOG #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_LOGL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_LOGL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_LOGF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_LOG #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), 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 end function
#endif #endif
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -39,11 +39,11 @@ ...@@ -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), 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 end function
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CSINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CSINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CSINF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CSIN #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_SINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_SINL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_SINF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_SIN #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_SINHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_SINHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_SINHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_SINH #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_10) #if defined (HAVE_GFC_COMPLEX_10)
#ifdef HAVE_CSQRTL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_16) #if defined (HAVE_GFC_COMPLEX_16)
#ifdef HAVE_CSQRTL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_4) #if defined (HAVE_GFC_COMPLEX_4)
#ifdef HAVE_CSQRTF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_COMPLEX_8) #if defined (HAVE_GFC_COMPLEX_8)
#ifdef HAVE_CSQRT #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_SQRTL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_SQRTL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_SQRTF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_SQRT #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_TANL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_TANL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_TANF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_TAN #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_TANHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16)
#ifdef HAVE_TANHL #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4)
#ifdef HAVE_TANHF #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), 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 end function
#endif #endif
......
...@@ -40,11 +40,11 @@ ...@@ -40,11 +40,11 @@
#if defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8)
#ifdef HAVE_TANH #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), 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 end function
#endif #endif
......
...@@ -36,176 +36,176 @@ ...@@ -36,176 +36,176 @@
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4) #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 real (kind=4) , intent (in) :: parm
integer (kind=4) :: specific__nint_4_4 integer (kind=4) :: _gfortran_specific__nint_4_4
specific__nint_4_4 = nint (parm) _gfortran_specific__nint_4_4 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) #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 real (kind=8) , intent (in) :: parm
integer (kind=4) :: specific__nint_4_8 integer (kind=4) :: _gfortran_specific__nint_4_8
specific__nint_4_8 = nint (parm) _gfortran_specific__nint_4_8 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) #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 real (kind=10) , intent (in) :: parm
integer (kind=4) :: specific__nint_4_10 integer (kind=4) :: _gfortran_specific__nint_4_10
specific__nint_4_10 = nint (parm) _gfortran_specific__nint_4_10 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) #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 real (kind=16) , intent (in) :: parm
integer (kind=4) :: specific__nint_4_16 integer (kind=4) :: _gfortran_specific__nint_4_16
specific__nint_4_16 = nint (parm) _gfortran_specific__nint_4_16 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) #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 real (kind=4) , intent (in) :: parm
integer (kind=8) :: specific__nint_8_4 integer (kind=8) :: _gfortran_specific__nint_8_4
specific__nint_8_4 = nint (parm) _gfortran_specific__nint_8_4 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) #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 real (kind=8) , intent (in) :: parm
integer (kind=8) :: specific__nint_8_8 integer (kind=8) :: _gfortran_specific__nint_8_8
specific__nint_8_8 = nint (parm) _gfortran_specific__nint_8_8 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) #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 real (kind=10) , intent (in) :: parm
integer (kind=8) :: specific__nint_8_10 integer (kind=8) :: _gfortran_specific__nint_8_10
specific__nint_8_10 = nint (parm) _gfortran_specific__nint_8_10 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) #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 real (kind=16) , intent (in) :: parm
integer (kind=8) :: specific__nint_8_16 integer (kind=8) :: _gfortran_specific__nint_8_16
specific__nint_8_16 = nint (parm) _gfortran_specific__nint_8_16 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) #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 real (kind=4) , intent (in) :: parm
integer (kind=16) :: specific__nint_16_4 integer (kind=16) :: _gfortran_specific__nint_16_4
specific__nint_16_4 = nint (parm) _gfortran_specific__nint_16_4 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) #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 real (kind=8) , intent (in) :: parm
integer (kind=16) :: specific__nint_16_8 integer (kind=16) :: _gfortran_specific__nint_16_8
specific__nint_16_8 = nint (parm) _gfortran_specific__nint_16_8 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) #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 real (kind=10) , intent (in) :: parm
integer (kind=16) :: specific__nint_16_10 integer (kind=16) :: _gfortran_specific__nint_16_10
specific__nint_16_10 = nint (parm) _gfortran_specific__nint_16_10 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) #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 real (kind=16) , intent (in) :: parm
integer (kind=16) :: specific__nint_16_16 integer (kind=16) :: _gfortran_specific__nint_16_16
specific__nint_16_16 = nint (parm) _gfortran_specific__nint_16_16 = nint (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_4) #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 integer (kind=4) , intent (in) :: parm
character (kind=1,len=1) :: specific__char_1_i4 character (kind=1,len=1) :: _gfortran_specific__char_1_i4
specific__char_1_i4 = char (parm, kind=1) _gfortran_specific__char_1_i4 = char (parm, kind=1)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_8) #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 integer (kind=8) , intent (in) :: parm
character (kind=1,len=1) :: specific__char_1_i8 character (kind=1,len=1) :: _gfortran_specific__char_1_i8
specific__char_1_i8 = char (parm, kind=1) _gfortran_specific__char_1_i8 = char (parm, kind=1)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_16) #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 integer (kind=16) , intent (in) :: parm
character (kind=1,len=1) :: specific__char_1_i16 character (kind=1,len=1) :: _gfortran_specific__char_1_i16
specific__char_1_i16 = char (parm, kind=1) _gfortran_specific__char_1_i16 = char (parm, kind=1)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_4) #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 character (kind=1,len=*) , intent (in) :: parm
integer (kind=4) :: specific__len_1_i4 integer (kind=4) :: _gfortran_specific__len_1_i4
specific__len_1_i4 = len (parm) _gfortran_specific__len_1_i4 = len (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_8) #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 character (kind=1,len=*) , intent (in) :: parm
integer (kind=8) :: specific__len_1_i8 integer (kind=8) :: _gfortran_specific__len_1_i8
specific__len_1_i8 = len (parm) _gfortran_specific__len_1_i8 = len (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_16) #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 character (kind=1,len=*) , intent (in) :: parm
integer (kind=16) :: specific__len_1_i16 integer (kind=16) :: _gfortran_specific__len_1_i16
specific__len_1_i16 = len (parm) _gfortran_specific__len_1_i16 = len (parm)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_4) #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 character (kind=1,len=*) , intent (in) :: parm1, parm2
integer (kind=4) :: specific__index_1_i4 integer (kind=4) :: _gfortran_specific__index_1_i4
specific__index_1_i4 = index (parm1, parm2) _gfortran_specific__index_1_i4 = index (parm1, parm2)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_8) #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 character (kind=1,len=*) , intent (in) :: parm1, parm2
integer (kind=8) :: specific__index_1_i8 integer (kind=8) :: _gfortran_specific__index_1_i8
specific__index_1_i8 = index (parm1, parm2) _gfortran_specific__index_1_i8 = index (parm1, parm2)
end function end function
#endif #endif
#if defined (HAVE_GFC_INTEGER_16) #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 character (kind=1,len=*) , intent (in) :: parm1, parm2
integer (kind=16) :: specific__index_1_i16 integer (kind=16) :: _gfortran_specific__index_1_i16
specific__index_1_i16 = index (parm1, parm2) _gfortran_specific__index_1_i16 = index (parm1, parm2)
end function end function
#endif #endif
...@@ -19,9 +19,9 @@ ...@@ -19,9 +19,9 @@
!Boston, MA 02110-1301, USA. !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=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 end function
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
! one argument functions ! one argument functions
#define REAL_HEAD(NAME) \ #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) \ #define REAL_BODY(NAME) \
REAL, intent (in) :: parm; \ REAL, intent (in) :: parm; \
...@@ -50,7 +50,7 @@ elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res); ...@@ -50,7 +50,7 @@ elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res);
end function end function
#define COMPLEX_HEAD(NAME) \ #define COMPLEX_HEAD(NAME) \
subroutine f2c_specific__/**/NAME/**/_c4 (res, parm); subroutine _gfortran_f2c_specific__/**/NAME/**/_c4 (res, parm);
#define COMPLEX_BODY(NAME) \ #define COMPLEX_BODY(NAME) \
COMPLEX, intent (in) :: parm; \ COMPLEX, intent (in) :: parm; \
...@@ -59,7 +59,7 @@ subroutine f2c_specific__/**/NAME/**/_c4 (res, parm); ...@@ -59,7 +59,7 @@ subroutine f2c_specific__/**/NAME/**/_c4 (res, parm);
end subroutine end subroutine
#define DCOMPLEX_HEAD(NAME) \ #define DCOMPLEX_HEAD(NAME) \
subroutine f2c_specific__/**/NAME/**/_c8 (res, parm); subroutine _gfortran_f2c_specific__/**/NAME/**/_c8 (res, parm);
#define DCOMPLEX_BODY(NAME) \ #define DCOMPLEX_BODY(NAME) \
DOUBLE COMPLEX, intent (in) :: parm; \ DOUBLE COMPLEX, intent (in) :: parm; \
...@@ -71,7 +71,7 @@ REAL_HEAD(abs) ...@@ -71,7 +71,7 @@ REAL_HEAD(abs)
REAL_BODY(abs) REAL_BODY(abs)
! abs is special in that the result is real ! 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 COMPLEX, intent(in) :: parm
DOUBLE PRECISION :: res DOUBLE PRECISION :: res
res = abs(parm) res = abs(parm)
...@@ -79,16 +79,16 @@ end function ...@@ -79,16 +79,16 @@ end function
! aimag is special in that the result is real ! 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 complex(kind=4), intent(in) :: parm
double precision :: f2c_specific__aimag_c4 double precision :: _gfortran_f2c_specific__aimag_c4
f2c_specific__aimag_c4 = aimag(parm) _gfortran_f2c_specific__aimag_c4 = aimag(parm)
end function end function
elemental function f2c_specific__aimag_c8 (parm) elemental function _gfortran_f2c_specific__aimag_c8 (parm)
complex(kind=8), intent(in) :: parm complex(kind=8), intent(in) :: parm
double precision :: f2c_specific__aimag_c8 double precision :: _gfortran_f2c_specific__aimag_c8
f2c_specific__aimag_c8 = aimag(parm) _gfortran_f2c_specific__aimag_c8 = aimag(parm)
end function end function
...@@ -168,7 +168,7 @@ REAL_BODY(anint) ...@@ -168,7 +168,7 @@ REAL_BODY(anint)
! two argument functions ! two argument functions
#define REAL2_HEAD(NAME) \ #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) \ #define REAL2_BODY(NAME) \
REAL, intent (in) :: p1, p2; \ REAL, intent (in) :: p1, p2; \
...@@ -189,12 +189,12 @@ REAL2_HEAD(mod) ...@@ -189,12 +189,12 @@ REAL2_HEAD(mod)
REAL2_BODY(mod) REAL2_BODY(mod)
! conjg is special-cased because it is not suffixed _c4 but _4 ! 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 (in) :: parm
COMPLEX, intent (out) :: res COMPLEX, intent (out) :: res
res = conjg (parm) res = conjg (parm)
end subroutine 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 (in) :: parm
DOUBLE COMPLEX, intent (out) :: res DOUBLE COMPLEX, intent (out) :: res
res = conjg (parm) res = conjg (parm)
......
...@@ -19,10 +19,10 @@ ...@@ -19,10 +19,10 @@
!Boston, MA 02110-1301, USA. !Boston, MA 02110-1301, USA.
! !
function selected_int_kind (r) function _gfortran_selected_int_kind (r)
implicit none implicit none
integer, intent (in) :: r integer, intent (in) :: r
integer :: selected_int_kind integer :: _gfortran_selected_int_kind
integer :: i integer :: i
! Integer kind_range table ! Integer kind_range table
type :: int_info type :: int_info
...@@ -34,10 +34,10 @@ function selected_int_kind (r) ...@@ -34,10 +34,10 @@ function selected_int_kind (r)
do i = 1, c do i = 1, c
if (r <= int_infos (i) % range) then if (r <= int_infos (i) % range) then
selected_int_kind = int_infos (i) % kind _gfortran_selected_int_kind = int_infos (i) % kind
return return
end if end if
end do end do
selected_int_kind = -1 _gfortran_selected_int_kind = -1
return return
end function end function
...@@ -19,10 +19,10 @@ ...@@ -19,10 +19,10 @@
!Boston, MA 02110-1301, USA. !Boston, MA 02110-1301, USA.
! !
function selected_real_kind (p, r) function _gfortran_selected_real_kind (p, r)
implicit none implicit none
integer, optional, intent (in) :: p, r integer, optional, intent (in) :: p, r
integer :: selected_real_kind integer :: _gfortran_selected_real_kind
integer :: i, p2, r2 integer :: i, p2, r2
logical :: found_p, found_r logical :: found_p, found_r
! Real kind_precision_range table ! Real kind_precision_range table
...@@ -34,7 +34,7 @@ function selected_real_kind (p, r) ...@@ -34,7 +34,7 @@ function selected_real_kind (p, r)
include "selected_real_kind.inc" include "selected_real_kind.inc"
selected_real_kind = 0 _gfortran_selected_real_kind = 0
p2 = 0 p2 = 0
r2 = 0 r2 = 0
found_p = .false. found_p = .false.
...@@ -49,13 +49,13 @@ function selected_real_kind (p, r) ...@@ -49,13 +49,13 @@ function selected_real_kind (p, r)
if (p2 <= real_infos (i) % precision) found_p = .true. if (p2 <= real_infos (i) % precision) found_p = .true.
if (r2 <= real_infos (i) % range) found_r = .true. if (r2 <= real_infos (i) % range) found_r = .true.
if (found_p .and. found_r) then if (found_p .and. found_r) then
selected_real_kind = real_infos (i) % kind _gfortran_selected_real_kind = real_infos (i) % kind
return return
end if end if
end do end do
if (.not. (found_p)) selected_real_kind = selected_real_kind - 1 if (.not. (found_p)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 1
if (.not. (found_r)) selected_real_kind = selected_real_kind - 2 if (.not. (found_r)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 2
return return
end function end function
...@@ -22,10 +22,10 @@ divert ...@@ -22,10 +22,10 @@ divert
dnl NINT specifics dnl NINT specifics
foreach(`ikind', `(4, 8, 16)', `foreach(`rkind', `(4, 8, 10, 16)', ` foreach(`ikind', `(4, 8, 16)', `foreach(`rkind', `(4, 8, 10, 16)', `
`#if defined (HAVE_GFC_REAL_'rkind`) && defined (HAVE_GFC_INTEGER_'ikind`)' `#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 real (kind=rkind) , intent (in) :: parm
integer (kind=ikind) :: specific__nint_`'ikind`_'rkind integer (kind=ikind) :: _gfortran_specific__nint_`'ikind`_'rkind
specific__nint_`'ikind`_'rkind = nint (parm) _gfortran_specific__nint_`'ikind`_'rkind = nint (parm)
end function end function
#endif #endif
')') ')')
...@@ -33,10 +33,10 @@ end function ...@@ -33,10 +33,10 @@ end function
dnl CHAR specifics dnl CHAR specifics
foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
`#if defined (HAVE_GFC_INTEGER_'ikind`)' `#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 integer (kind=ikind) , intent (in) :: parm
character (kind=ckind,len=1) :: specific__char_`'ckind`_i'ikind character (kind=ckind,len=1) :: _gfortran_specific__char_`'ckind`_i'ikind
specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)' _gfortran_specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)'
end function end function
#endif #endif
')') ')')
...@@ -44,10 +44,10 @@ end function ...@@ -44,10 +44,10 @@ end function
dnl LEN specifics dnl LEN specifics
foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
`#if defined (HAVE_GFC_INTEGER_'ikind`)' `#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 character (kind=ckind,len=*) , intent (in) :: parm
integer (kind=ikind) :: specific__len_`'ckind`_i'ikind integer (kind=ikind) :: _gfortran_specific__len_`'ckind`_i'ikind
specific__len_`'ckind`_i'ikind` = len (parm)' _gfortran_specific__len_`'ckind`_i'ikind` = len (parm)'
end function end function
#endif #endif
')') ')')
...@@ -55,10 +55,10 @@ end function ...@@ -55,10 +55,10 @@ end function
dnl INDEX specifics dnl INDEX specifics
foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
`#if defined (HAVE_GFC_INTEGER_'ikind`)' `#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 character (kind=ckind,len=*) , intent (in) :: parm1, parm2
integer (kind=ikind) :: specific__index_`'ckind`_i'ikind integer (kind=ikind) :: _gfortran_specific__index_`'ckind`_i'ikind
specific__index_`'ckind`_i'ikind` = index (parm1, parm2)' _gfortran_specific__index_`'ckind`_i'ikind` = index (parm1, parm2)'
end function end function
#endif #endif
')') ')')
...@@ -7,7 +7,7 @@ define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse( ...@@ -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(atype_name, get_typename(atype_letter,atype_kind))dnl
define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))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(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(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 define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl
......
...@@ -6,7 +6,7 @@ define(get_typename2, `$1 (kind=$2)')dnl ...@@ -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(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(atype_name, get_typename(atype_letter,atype_kind))dnl
define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))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 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