From e6472bcede51c6d029a60fe644f50c982d689c53 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 20 Jan 2007 19:33:20 +0100 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 15 ++ gcc/fortran/gfortran.h | 1 + gcc/fortran/lang.opt | 4 + gcc/fortran/match.c | 2 +- gcc/fortran/options.c | 5 + gcc/fortran/symbol.c | 6 + gcc/fortran/trans-decl.c | 12 +- libgfortran/ChangeLog | 151 ++++++++++++++++++ libgfortran/Makefile.am | 4 + libgfortran/Makefile.in | 4 + libgfortran/generated/_abs_c10.F90 | 6 +- libgfortran/generated/_abs_c16.F90 | 6 +- libgfortran/generated/_abs_c4.F90 | 6 +- libgfortran/generated/_abs_c8.F90 | 6 +- libgfortran/generated/_abs_i16.F90 | 6 +- libgfortran/generated/_abs_i4.F90 | 6 +- libgfortran/generated/_abs_i8.F90 | 6 +- libgfortran/generated/_abs_r10.F90 | 6 +- libgfortran/generated/_abs_r16.F90 | 6 +- libgfortran/generated/_abs_r4.F90 | 6 +- libgfortran/generated/_abs_r8.F90 | 6 +- libgfortran/generated/_acos_r10.F90 | 6 +- libgfortran/generated/_acos_r16.F90 | 6 +- libgfortran/generated/_acos_r4.F90 | 6 +- libgfortran/generated/_acos_r8.F90 | 6 +- libgfortran/generated/_acosh_r10.F90 | 6 +- libgfortran/generated/_acosh_r16.F90 | 6 +- libgfortran/generated/_acosh_r4.F90 | 6 +- libgfortran/generated/_acosh_r8.F90 | 6 +- libgfortran/generated/_aimag_c10.F90 | 6 +- libgfortran/generated/_aimag_c16.F90 | 6 +- libgfortran/generated/_aimag_c4.F90 | 6 +- libgfortran/generated/_aimag_c8.F90 | 6 +- libgfortran/generated/_aint_r10.F90 | 6 +- libgfortran/generated/_aint_r16.F90 | 6 +- libgfortran/generated/_aint_r4.F90 | 6 +- libgfortran/generated/_aint_r8.F90 | 6 +- libgfortran/generated/_anint_r10.F90 | 6 +- libgfortran/generated/_anint_r16.F90 | 6 +- libgfortran/generated/_anint_r4.F90 | 6 +- libgfortran/generated/_anint_r8.F90 | 6 +- libgfortran/generated/_asin_r10.F90 | 6 +- libgfortran/generated/_asin_r16.F90 | 6 +- libgfortran/generated/_asin_r4.F90 | 6 +- libgfortran/generated/_asin_r8.F90 | 6 +- libgfortran/generated/_asinh_r10.F90 | 6 +- libgfortran/generated/_asinh_r16.F90 | 6 +- libgfortran/generated/_asinh_r4.F90 | 6 +- libgfortran/generated/_asinh_r8.F90 | 6 +- libgfortran/generated/_atan2_r10.F90 | 6 +- libgfortran/generated/_atan2_r16.F90 | 6 +- libgfortran/generated/_atan2_r4.F90 | 6 +- libgfortran/generated/_atan2_r8.F90 | 6 +- libgfortran/generated/_atan_r10.F90 | 6 +- libgfortran/generated/_atan_r16.F90 | 6 +- libgfortran/generated/_atan_r4.F90 | 6 +- libgfortran/generated/_atan_r8.F90 | 6 +- libgfortran/generated/_atanh_r10.F90 | 6 +- libgfortran/generated/_atanh_r16.F90 | 6 +- libgfortran/generated/_atanh_r4.F90 | 6 +- libgfortran/generated/_atanh_r8.F90 | 6 +- libgfortran/generated/_conjg_c10.F90 | 6 +- libgfortran/generated/_conjg_c16.F90 | 6 +- libgfortran/generated/_conjg_c4.F90 | 6 +- libgfortran/generated/_conjg_c8.F90 | 6 +- libgfortran/generated/_cos_c10.F90 | 6 +- libgfortran/generated/_cos_c16.F90 | 6 +- libgfortran/generated/_cos_c4.F90 | 6 +- libgfortran/generated/_cos_c8.F90 | 6 +- libgfortran/generated/_cos_r10.F90 | 6 +- libgfortran/generated/_cos_r16.F90 | 6 +- libgfortran/generated/_cos_r4.F90 | 6 +- libgfortran/generated/_cos_r8.F90 | 6 +- libgfortran/generated/_cosh_r10.F90 | 6 +- libgfortran/generated/_cosh_r16.F90 | 6 +- libgfortran/generated/_cosh_r4.F90 | 6 +- libgfortran/generated/_cosh_r8.F90 | 6 +- libgfortran/generated/_dim_i16.F90 | 6 +- libgfortran/generated/_dim_i4.F90 | 6 +- libgfortran/generated/_dim_i8.F90 | 6 +- libgfortran/generated/_dim_r10.F90 | 6 +- libgfortran/generated/_dim_r16.F90 | 6 +- libgfortran/generated/_dim_r4.F90 | 6 +- libgfortran/generated/_dim_r8.F90 | 6 +- libgfortran/generated/_exp_c10.F90 | 6 +- libgfortran/generated/_exp_c16.F90 | 6 +- libgfortran/generated/_exp_c4.F90 | 6 +- libgfortran/generated/_exp_c8.F90 | 6 +- libgfortran/generated/_exp_r10.F90 | 6 +- libgfortran/generated/_exp_r16.F90 | 6 +- libgfortran/generated/_exp_r4.F90 | 6 +- libgfortran/generated/_exp_r8.F90 | 6 +- libgfortran/generated/_log10_r10.F90 | 6 +- libgfortran/generated/_log10_r16.F90 | 6 +- libgfortran/generated/_log10_r4.F90 | 6 +- libgfortran/generated/_log10_r8.F90 | 6 +- libgfortran/generated/_log_c10.F90 | 6 +- libgfortran/generated/_log_c16.F90 | 6 +- libgfortran/generated/_log_c4.F90 | 6 +- libgfortran/generated/_log_c8.F90 | 6 +- libgfortran/generated/_log_r10.F90 | 6 +- libgfortran/generated/_log_r16.F90 | 6 +- libgfortran/generated/_log_r4.F90 | 6 +- libgfortran/generated/_log_r8.F90 | 6 +- libgfortran/generated/_mod_i16.F90 | 6 +- libgfortran/generated/_mod_i4.F90 | 6 +- libgfortran/generated/_mod_i8.F90 | 6 +- libgfortran/generated/_mod_r10.F90 | 6 +- libgfortran/generated/_mod_r16.F90 | 6 +- libgfortran/generated/_mod_r4.F90 | 6 +- libgfortran/generated/_mod_r8.F90 | 6 +- libgfortran/generated/_sign_i16.F90 | 6 +- libgfortran/generated/_sign_i4.F90 | 6 +- libgfortran/generated/_sign_i8.F90 | 6 +- libgfortran/generated/_sign_r10.F90 | 6 +- libgfortran/generated/_sign_r16.F90 | 6 +- libgfortran/generated/_sign_r4.F90 | 6 +- libgfortran/generated/_sign_r8.F90 | 6 +- libgfortran/generated/_sin_c10.F90 | 6 +- libgfortran/generated/_sin_c16.F90 | 6 +- libgfortran/generated/_sin_c4.F90 | 6 +- libgfortran/generated/_sin_c8.F90 | 6 +- libgfortran/generated/_sin_r10.F90 | 6 +- libgfortran/generated/_sin_r16.F90 | 6 +- libgfortran/generated/_sin_r4.F90 | 6 +- libgfortran/generated/_sin_r8.F90 | 6 +- libgfortran/generated/_sinh_r10.F90 | 6 +- libgfortran/generated/_sinh_r16.F90 | 6 +- libgfortran/generated/_sinh_r4.F90 | 6 +- libgfortran/generated/_sinh_r8.F90 | 6 +- libgfortran/generated/_sqrt_c10.F90 | 6 +- libgfortran/generated/_sqrt_c16.F90 | 6 +- libgfortran/generated/_sqrt_c4.F90 | 6 +- libgfortran/generated/_sqrt_c8.F90 | 6 +- libgfortran/generated/_sqrt_r10.F90 | 6 +- libgfortran/generated/_sqrt_r16.F90 | 6 +- libgfortran/generated/_sqrt_r4.F90 | 6 +- libgfortran/generated/_sqrt_r8.F90 | 6 +- libgfortran/generated/_tan_r10.F90 | 6 +- libgfortran/generated/_tan_r16.F90 | 6 +- libgfortran/generated/_tan_r4.F90 | 6 +- libgfortran/generated/_tan_r8.F90 | 6 +- libgfortran/generated/_tanh_r10.F90 | 6 +- libgfortran/generated/_tanh_r16.F90 | 6 +- libgfortran/generated/_tanh_r4.F90 | 6 +- libgfortran/generated/_tanh_r8.F90 | 6 +- libgfortran/generated/misc_specifics.F90 | 126 +++++++-------- libgfortran/intrinsics/dprod_r8.f90 | 6 +- libgfortran/intrinsics/f2c_specifics.F90 | 26 +-- libgfortran/intrinsics/selected_int_kind.f90 | 8 +- libgfortran/intrinsics/selected_real_kind.f90 | 12 +- libgfortran/m4/misc_specifics.m4 | 24 +-- libgfortran/m4/specific.m4 | 2 +- libgfortran/m4/specific2.m4 | 2 +- 154 files changed, 709 insertions(+), 517 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 99a39b23a2a0..3e16d4c8b2a9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,18 @@ +2007-01-20 Francois-Xavier Coudert + + * 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 PR fortran/30446 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 64739fbd2764..05b7ebc4243b 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1656,6 +1656,7 @@ typedef struct int flag_f2c; int flag_automatic; int flag_backslash; + int flag_allow_leading_underscore; int flag_dump_core; int flag_external_blas; int blas_matmul_limit; diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 2991f7f7bda8..7d413ffd3519 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -81,6 +81,10 @@ fall-intrinsics Fortran RejectNegative All intrinsics procedures are available regardless of selected standard +fallow-leading-underscore +Fortran Undocumented +; For internal use only: allow the first character of symbol names to be an underscore + fautomatic Fortran Do not treat local variables and COMMON blocks as if they were named in SAVE statements diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index e3d37d25c7e7..0fa1f634204a 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -392,7 +392,7 @@ gfc_match_name (char *buffer) gfc_gobble_whitespace (); c = gfc_next_char (); - if (!ISALPHA (c)) + if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore))) { if (gfc_error_flag_test() == 0) gfc_error ("Invalid character in name at %C"); diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index aa1a9404cc23..8ead48f5c8ba 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -84,6 +84,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.flag_preprocessed = 0; gfc_option.flag_automatic = 1; gfc_option.flag_backslash = 1; + gfc_option.flag_allow_leading_underscore = 0; gfc_option.flag_dump_core = 0; gfc_option.flag_external_blas = 0; gfc_option.blas_matmul_limit = 30; @@ -450,6 +451,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_automatic = value; break; + case OPT_fallow_leading_underscore: + gfc_option.flag_allow_leading_underscore = value; + break; + case OPT_fbackslash: gfc_option.flag_backslash = value; break; diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 85aff8674a4b..c130dee6e71d 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -202,6 +202,12 @@ gfc_get_default_type (gfc_symbol * sym, gfc_namespace * ns) char letter; letter = sym->name[0]; + + if (gfc_option.flag_allow_leading_underscore && letter == '_') + gfc_internal_error ("Option -fallow_leading_underscore is for use only by " + "gfortran developers, and should not be used for " + "implicitly typed variables"); + if (letter < 'a' || letter > 'z') gfc_internal_error ("gfc_get_default_type(): Bad symbol"); diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 000772c20907..3028c8fa422d 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1060,7 +1060,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym) gfc_expr e; gfc_intrinsic_sym *isym; gfc_expr argexpr; - char s[GFC_MAX_SYMBOL_LEN + 13]; /* "f2c_specific" and '\0'. */ + char s[GFC_MAX_SYMBOL_LEN + 23]; /* "_gfortran_f2c_specific" and '\0'. */ tree name; tree mangled_name; @@ -1108,10 +1108,10 @@ gfc_get_extern_function_decl (gfc_symbol * sym) { /* Specific which needs a different implementation if f2c calling conventions are used. */ - sprintf (s, "f2c_specific%s", e.value.function.name); + sprintf (s, "_gfortran_f2c_specific%s", e.value.function.name); } else - sprintf (s, "specific%s", e.value.function.name); + sprintf (s, "_gfortran_specific%s", e.value.function.name); name = get_identifier (s); mangled_name = name; @@ -2082,13 +2082,15 @@ gfc_build_intrinsic_function_decls (void) gfc_charlen_type_node, pchar_type_node); gfor_fndecl_si_kind = - gfc_build_library_function_decl (get_identifier ("selected_int_kind"), + gfc_build_library_function_decl (get_identifier + (PREFIX("selected_int_kind")), gfc_int4_type_node, 1, pvoid_type_node); gfor_fndecl_sr_kind = - gfc_build_library_function_decl (get_identifier ("selected_real_kind"), + gfc_build_library_function_decl (get_identifier + (PREFIX("selected_real_kind")), gfc_int4_type_node, 2, pvoid_type_node, pvoid_type_node); diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index bc303f30cd1d..a1387508a42d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,154 @@ +2007-01-20 Francois-Xavier Coudert + + * 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 PR libfortran/26893 diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am index c1cb3ac19dcd..65cc004f60d1 100644 --- a/libgfortran/Makefile.am +++ b/libgfortran/Makefile.am @@ -597,6 +597,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun # Logical matmul doesn't vectorize. $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops +# Add the -fallow-leading-underscore option when needed +$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore +selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore + BUILT_SOURCES=$(gfor_built_src) $(gfor_built_specific_src) \ $(gfor_built_specific2_src) $(gfor_misc_specifics) libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \ diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in index d8ca09d75df4..acc4e855e8e7 100644 --- a/libgfortran/Makefile.in +++ b/libgfortran/Makefile.in @@ -4518,6 +4518,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun # Logical matmul doesn't vectorize. $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops +# Add the -fallow-leading-underscore option when needed +$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore +selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore + kinds.h: $(srcdir)/mk-kinds-h.sh $(SHELL) $(srcdir)/mk-kinds-h.sh '$(FCCOMPILE)' > $@ || rm $@ diff --git a/libgfortran/generated/_abs_c10.F90 b/libgfortran/generated/_abs_c10.F90 index 33a58953b626..791cd5bedf6b 100644 --- a/libgfortran/generated/_abs_c10.F90 +++ b/libgfortran/generated/_abs_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CABSL -elemental function specific__abs_c10 (parm) +elemental function _gfortran_specific__abs_c10 (parm) complex (kind=10), intent (in) :: parm - real (kind=10) :: specific__abs_c10 + real (kind=10) :: _gfortran_specific__abs_c10 - specific__abs_c10 = abs (parm) + _gfortran_specific__abs_c10 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_c16.F90 b/libgfortran/generated/_abs_c16.F90 index 021546d3b358..ee94cb00c4e1 100644 --- a/libgfortran/generated/_abs_c16.F90 +++ b/libgfortran/generated/_abs_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CABSL -elemental function specific__abs_c16 (parm) +elemental function _gfortran_specific__abs_c16 (parm) complex (kind=16), intent (in) :: parm - real (kind=16) :: specific__abs_c16 + real (kind=16) :: _gfortran_specific__abs_c16 - specific__abs_c16 = abs (parm) + _gfortran_specific__abs_c16 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_c4.F90 b/libgfortran/generated/_abs_c4.F90 index 6def6b1ae61c..bc25d6e4a239 100644 --- a/libgfortran/generated/_abs_c4.F90 +++ b/libgfortran/generated/_abs_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CABSF -elemental function specific__abs_c4 (parm) +elemental function _gfortran_specific__abs_c4 (parm) complex (kind=4), intent (in) :: parm - real (kind=4) :: specific__abs_c4 + real (kind=4) :: _gfortran_specific__abs_c4 - specific__abs_c4 = abs (parm) + _gfortran_specific__abs_c4 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_c8.F90 b/libgfortran/generated/_abs_c8.F90 index bd549a5865d4..4648dd123694 100644 --- a/libgfortran/generated/_abs_c8.F90 +++ b/libgfortran/generated/_abs_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CABS -elemental function specific__abs_c8 (parm) +elemental function _gfortran_specific__abs_c8 (parm) complex (kind=8), intent (in) :: parm - real (kind=8) :: specific__abs_c8 + real (kind=8) :: _gfortran_specific__abs_c8 - specific__abs_c8 = abs (parm) + _gfortran_specific__abs_c8 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_i16.F90 b/libgfortran/generated/_abs_i16.F90 index afbb67f480ea..72240c24fdff 100644 --- a/libgfortran/generated/_abs_i16.F90 +++ b/libgfortran/generated/_abs_i16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_INTEGER_16) -elemental function specific__abs_i16 (parm) +elemental function _gfortran_specific__abs_i16 (parm) integer (kind=16), intent (in) :: parm - integer (kind=16) :: specific__abs_i16 + integer (kind=16) :: _gfortran_specific__abs_i16 - specific__abs_i16 = abs (parm) + _gfortran_specific__abs_i16 = abs (parm) end function diff --git a/libgfortran/generated/_abs_i4.F90 b/libgfortran/generated/_abs_i4.F90 index 4037d3473aeb..5f3a1e85d8f4 100644 --- a/libgfortran/generated/_abs_i4.F90 +++ b/libgfortran/generated/_abs_i4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_INTEGER_4) -elemental function specific__abs_i4 (parm) +elemental function _gfortran_specific__abs_i4 (parm) integer (kind=4), intent (in) :: parm - integer (kind=4) :: specific__abs_i4 + integer (kind=4) :: _gfortran_specific__abs_i4 - specific__abs_i4 = abs (parm) + _gfortran_specific__abs_i4 = abs (parm) end function diff --git a/libgfortran/generated/_abs_i8.F90 b/libgfortran/generated/_abs_i8.F90 index 1f2e4244cf98..87f987092b12 100644 --- a/libgfortran/generated/_abs_i8.F90 +++ b/libgfortran/generated/_abs_i8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_INTEGER_8) -elemental function specific__abs_i8 (parm) +elemental function _gfortran_specific__abs_i8 (parm) integer (kind=8), intent (in) :: parm - integer (kind=8) :: specific__abs_i8 + integer (kind=8) :: _gfortran_specific__abs_i8 - specific__abs_i8 = abs (parm) + _gfortran_specific__abs_i8 = abs (parm) end function diff --git a/libgfortran/generated/_abs_r10.F90 b/libgfortran/generated/_abs_r10.F90 index 4d76a1eafa9f..4b070d3a99d2 100644 --- a/libgfortran/generated/_abs_r10.F90 +++ b/libgfortran/generated/_abs_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_FABSL -elemental function specific__abs_r10 (parm) +elemental function _gfortran_specific__abs_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__abs_r10 + real (kind=10) :: _gfortran_specific__abs_r10 - specific__abs_r10 = abs (parm) + _gfortran_specific__abs_r10 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_r16.F90 b/libgfortran/generated/_abs_r16.F90 index 3c7d8a74f310..10edfba79cfd 100644 --- a/libgfortran/generated/_abs_r16.F90 +++ b/libgfortran/generated/_abs_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_FABSL -elemental function specific__abs_r16 (parm) +elemental function _gfortran_specific__abs_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__abs_r16 + real (kind=16) :: _gfortran_specific__abs_r16 - specific__abs_r16 = abs (parm) + _gfortran_specific__abs_r16 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_r4.F90 b/libgfortran/generated/_abs_r4.F90 index 31ef426f2acc..02ebd43fd0e4 100644 --- a/libgfortran/generated/_abs_r4.F90 +++ b/libgfortran/generated/_abs_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_FABSF -elemental function specific__abs_r4 (parm) +elemental function _gfortran_specific__abs_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__abs_r4 + real (kind=4) :: _gfortran_specific__abs_r4 - specific__abs_r4 = abs (parm) + _gfortran_specific__abs_r4 = abs (parm) end function #endif diff --git a/libgfortran/generated/_abs_r8.F90 b/libgfortran/generated/_abs_r8.F90 index c0b4ce1febe4..0d7b62057fcf 100644 --- a/libgfortran/generated/_abs_r8.F90 +++ b/libgfortran/generated/_abs_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_FABS -elemental function specific__abs_r8 (parm) +elemental function _gfortran_specific__abs_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__abs_r8 + real (kind=8) :: _gfortran_specific__abs_r8 - specific__abs_r8 = abs (parm) + _gfortran_specific__abs_r8 = abs (parm) end function #endif diff --git a/libgfortran/generated/_acos_r10.F90 b/libgfortran/generated/_acos_r10.F90 index d7be7c8940e3..4225572fa303 100644 --- a/libgfortran/generated/_acos_r10.F90 +++ b/libgfortran/generated/_acos_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ACOSL -elemental function specific__acos_r10 (parm) +elemental function _gfortran_specific__acos_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__acos_r10 + real (kind=10) :: _gfortran_specific__acos_r10 - specific__acos_r10 = acos (parm) + _gfortran_specific__acos_r10 = acos (parm) end function #endif diff --git a/libgfortran/generated/_acos_r16.F90 b/libgfortran/generated/_acos_r16.F90 index f0c6dde0863d..90525beef355 100644 --- a/libgfortran/generated/_acos_r16.F90 +++ b/libgfortran/generated/_acos_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ACOSL -elemental function specific__acos_r16 (parm) +elemental function _gfortran_specific__acos_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__acos_r16 + real (kind=16) :: _gfortran_specific__acos_r16 - specific__acos_r16 = acos (parm) + _gfortran_specific__acos_r16 = acos (parm) end function #endif diff --git a/libgfortran/generated/_acos_r4.F90 b/libgfortran/generated/_acos_r4.F90 index 9e1b97b0e6a0..16478e4872f2 100644 --- a/libgfortran/generated/_acos_r4.F90 +++ b/libgfortran/generated/_acos_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ACOSF -elemental function specific__acos_r4 (parm) +elemental function _gfortran_specific__acos_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__acos_r4 + real (kind=4) :: _gfortran_specific__acos_r4 - specific__acos_r4 = acos (parm) + _gfortran_specific__acos_r4 = acos (parm) end function #endif diff --git a/libgfortran/generated/_acos_r8.F90 b/libgfortran/generated/_acos_r8.F90 index 3bded7785032..5866b81121cf 100644 --- a/libgfortran/generated/_acos_r8.F90 +++ b/libgfortran/generated/_acos_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ACOS -elemental function specific__acos_r8 (parm) +elemental function _gfortran_specific__acos_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__acos_r8 + real (kind=8) :: _gfortran_specific__acos_r8 - specific__acos_r8 = acos (parm) + _gfortran_specific__acos_r8 = acos (parm) end function #endif diff --git a/libgfortran/generated/_acosh_r10.F90 b/libgfortran/generated/_acosh_r10.F90 index 07bc3327c56d..2f7c93d9952d 100644 --- a/libgfortran/generated/_acosh_r10.F90 +++ b/libgfortran/generated/_acosh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ACOSHL -elemental function specific__acosh_r10 (parm) +elemental function _gfortran_specific__acosh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__acosh_r10 + real (kind=10) :: _gfortran_specific__acosh_r10 - specific__acosh_r10 = acosh (parm) + _gfortran_specific__acosh_r10 = acosh (parm) end function #endif diff --git a/libgfortran/generated/_acosh_r16.F90 b/libgfortran/generated/_acosh_r16.F90 index 295a366f61cc..010a42ecad08 100644 --- a/libgfortran/generated/_acosh_r16.F90 +++ b/libgfortran/generated/_acosh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ACOSHL -elemental function specific__acosh_r16 (parm) +elemental function _gfortran_specific__acosh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__acosh_r16 + real (kind=16) :: _gfortran_specific__acosh_r16 - specific__acosh_r16 = acosh (parm) + _gfortran_specific__acosh_r16 = acosh (parm) end function #endif diff --git a/libgfortran/generated/_acosh_r4.F90 b/libgfortran/generated/_acosh_r4.F90 index 717ce409e12d..f6c24839bc1d 100644 --- a/libgfortran/generated/_acosh_r4.F90 +++ b/libgfortran/generated/_acosh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ACOSHF -elemental function specific__acosh_r4 (parm) +elemental function _gfortran_specific__acosh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__acosh_r4 + real (kind=4) :: _gfortran_specific__acosh_r4 - specific__acosh_r4 = acosh (parm) + _gfortran_specific__acosh_r4 = acosh (parm) end function #endif diff --git a/libgfortran/generated/_acosh_r8.F90 b/libgfortran/generated/_acosh_r8.F90 index d03c73ba246c..e785507bb844 100644 --- a/libgfortran/generated/_acosh_r8.F90 +++ b/libgfortran/generated/_acosh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ACOSH -elemental function specific__acosh_r8 (parm) +elemental function _gfortran_specific__acosh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__acosh_r8 + real (kind=8) :: _gfortran_specific__acosh_r8 - specific__acosh_r8 = acosh (parm) + _gfortran_specific__acosh_r8 = acosh (parm) end function #endif diff --git a/libgfortran/generated/_aimag_c10.F90 b/libgfortran/generated/_aimag_c10.F90 index d6a6f0b86315..a406cff30a17 100644 --- a/libgfortran/generated/_aimag_c10.F90 +++ b/libgfortran/generated/_aimag_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) -elemental function specific__aimag_c10 (parm) +elemental function _gfortran_specific__aimag_c10 (parm) complex (kind=10), intent (in) :: parm - real (kind=10) :: specific__aimag_c10 + real (kind=10) :: _gfortran_specific__aimag_c10 - specific__aimag_c10 = aimag (parm) + _gfortran_specific__aimag_c10 = aimag (parm) end function diff --git a/libgfortran/generated/_aimag_c16.F90 b/libgfortran/generated/_aimag_c16.F90 index 717f820eb6bb..32858cfb4f1b 100644 --- a/libgfortran/generated/_aimag_c16.F90 +++ b/libgfortran/generated/_aimag_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) -elemental function specific__aimag_c16 (parm) +elemental function _gfortran_specific__aimag_c16 (parm) complex (kind=16), intent (in) :: parm - real (kind=16) :: specific__aimag_c16 + real (kind=16) :: _gfortran_specific__aimag_c16 - specific__aimag_c16 = aimag (parm) + _gfortran_specific__aimag_c16 = aimag (parm) end function diff --git a/libgfortran/generated/_aimag_c4.F90 b/libgfortran/generated/_aimag_c4.F90 index 241e7b97c151..118a742de388 100644 --- a/libgfortran/generated/_aimag_c4.F90 +++ b/libgfortran/generated/_aimag_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) -elemental function specific__aimag_c4 (parm) +elemental function _gfortran_specific__aimag_c4 (parm) complex (kind=4), intent (in) :: parm - real (kind=4) :: specific__aimag_c4 + real (kind=4) :: _gfortran_specific__aimag_c4 - specific__aimag_c4 = aimag (parm) + _gfortran_specific__aimag_c4 = aimag (parm) end function diff --git a/libgfortran/generated/_aimag_c8.F90 b/libgfortran/generated/_aimag_c8.F90 index 76ad7e982cac..112c6882d8ec 100644 --- a/libgfortran/generated/_aimag_c8.F90 +++ b/libgfortran/generated/_aimag_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) -elemental function specific__aimag_c8 (parm) +elemental function _gfortran_specific__aimag_c8 (parm) complex (kind=8), intent (in) :: parm - real (kind=8) :: specific__aimag_c8 + real (kind=8) :: _gfortran_specific__aimag_c8 - specific__aimag_c8 = aimag (parm) + _gfortran_specific__aimag_c8 = aimag (parm) end function diff --git a/libgfortran/generated/_aint_r10.F90 b/libgfortran/generated/_aint_r10.F90 index 2448baa53e85..2853c0c6718b 100644 --- a/libgfortran/generated/_aint_r10.F90 +++ b/libgfortran/generated/_aint_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_TRUNCL -elemental function specific__aint_r10 (parm) +elemental function _gfortran_specific__aint_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__aint_r10 + real (kind=10) :: _gfortran_specific__aint_r10 - specific__aint_r10 = aint (parm) + _gfortran_specific__aint_r10 = aint (parm) end function #endif diff --git a/libgfortran/generated/_aint_r16.F90 b/libgfortran/generated/_aint_r16.F90 index 9903ad4af19e..5208c4e6a8a2 100644 --- a/libgfortran/generated/_aint_r16.F90 +++ b/libgfortran/generated/_aint_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_TRUNCL -elemental function specific__aint_r16 (parm) +elemental function _gfortran_specific__aint_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__aint_r16 + real (kind=16) :: _gfortran_specific__aint_r16 - specific__aint_r16 = aint (parm) + _gfortran_specific__aint_r16 = aint (parm) end function #endif diff --git a/libgfortran/generated/_aint_r4.F90 b/libgfortran/generated/_aint_r4.F90 index 4fb714588340..8318dd979da2 100644 --- a/libgfortran/generated/_aint_r4.F90 +++ b/libgfortran/generated/_aint_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_TRUNCF -elemental function specific__aint_r4 (parm) +elemental function _gfortran_specific__aint_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__aint_r4 + real (kind=4) :: _gfortran_specific__aint_r4 - specific__aint_r4 = aint (parm) + _gfortran_specific__aint_r4 = aint (parm) end function #endif diff --git a/libgfortran/generated/_aint_r8.F90 b/libgfortran/generated/_aint_r8.F90 index f860c7ae3826..9f2d712f179c 100644 --- a/libgfortran/generated/_aint_r8.F90 +++ b/libgfortran/generated/_aint_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_TRUNC -elemental function specific__aint_r8 (parm) +elemental function _gfortran_specific__aint_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__aint_r8 + real (kind=8) :: _gfortran_specific__aint_r8 - specific__aint_r8 = aint (parm) + _gfortran_specific__aint_r8 = aint (parm) end function #endif diff --git a/libgfortran/generated/_anint_r10.F90 b/libgfortran/generated/_anint_r10.F90 index 1652417943f0..29d11b31fbad 100644 --- a/libgfortran/generated/_anint_r10.F90 +++ b/libgfortran/generated/_anint_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ROUNDL -elemental function specific__anint_r10 (parm) +elemental function _gfortran_specific__anint_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__anint_r10 + real (kind=10) :: _gfortran_specific__anint_r10 - specific__anint_r10 = anint (parm) + _gfortran_specific__anint_r10 = anint (parm) end function #endif diff --git a/libgfortran/generated/_anint_r16.F90 b/libgfortran/generated/_anint_r16.F90 index 48e1dffb1c3a..bc74dcca91b2 100644 --- a/libgfortran/generated/_anint_r16.F90 +++ b/libgfortran/generated/_anint_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ROUNDL -elemental function specific__anint_r16 (parm) +elemental function _gfortran_specific__anint_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__anint_r16 + real (kind=16) :: _gfortran_specific__anint_r16 - specific__anint_r16 = anint (parm) + _gfortran_specific__anint_r16 = anint (parm) end function #endif diff --git a/libgfortran/generated/_anint_r4.F90 b/libgfortran/generated/_anint_r4.F90 index c1c955ce5e89..f808b5dc9b46 100644 --- a/libgfortran/generated/_anint_r4.F90 +++ b/libgfortran/generated/_anint_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ROUNDF -elemental function specific__anint_r4 (parm) +elemental function _gfortran_specific__anint_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__anint_r4 + real (kind=4) :: _gfortran_specific__anint_r4 - specific__anint_r4 = anint (parm) + _gfortran_specific__anint_r4 = anint (parm) end function #endif diff --git a/libgfortran/generated/_anint_r8.F90 b/libgfortran/generated/_anint_r8.F90 index 6c72678944de..33495dcde9f6 100644 --- a/libgfortran/generated/_anint_r8.F90 +++ b/libgfortran/generated/_anint_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ROUND -elemental function specific__anint_r8 (parm) +elemental function _gfortran_specific__anint_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__anint_r8 + real (kind=8) :: _gfortran_specific__anint_r8 - specific__anint_r8 = anint (parm) + _gfortran_specific__anint_r8 = anint (parm) end function #endif diff --git a/libgfortran/generated/_asin_r10.F90 b/libgfortran/generated/_asin_r10.F90 index 80939fa3a18a..cccc6c3465e1 100644 --- a/libgfortran/generated/_asin_r10.F90 +++ b/libgfortran/generated/_asin_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ASINL -elemental function specific__asin_r10 (parm) +elemental function _gfortran_specific__asin_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__asin_r10 + real (kind=10) :: _gfortran_specific__asin_r10 - specific__asin_r10 = asin (parm) + _gfortran_specific__asin_r10 = asin (parm) end function #endif diff --git a/libgfortran/generated/_asin_r16.F90 b/libgfortran/generated/_asin_r16.F90 index 76e37b6f6a5f..6b6f26da6cb2 100644 --- a/libgfortran/generated/_asin_r16.F90 +++ b/libgfortran/generated/_asin_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ASINL -elemental function specific__asin_r16 (parm) +elemental function _gfortran_specific__asin_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__asin_r16 + real (kind=16) :: _gfortran_specific__asin_r16 - specific__asin_r16 = asin (parm) + _gfortran_specific__asin_r16 = asin (parm) end function #endif diff --git a/libgfortran/generated/_asin_r4.F90 b/libgfortran/generated/_asin_r4.F90 index cd77113879fe..da9c5e234797 100644 --- a/libgfortran/generated/_asin_r4.F90 +++ b/libgfortran/generated/_asin_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ASINF -elemental function specific__asin_r4 (parm) +elemental function _gfortran_specific__asin_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__asin_r4 + real (kind=4) :: _gfortran_specific__asin_r4 - specific__asin_r4 = asin (parm) + _gfortran_specific__asin_r4 = asin (parm) end function #endif diff --git a/libgfortran/generated/_asin_r8.F90 b/libgfortran/generated/_asin_r8.F90 index c31f2bc8db3d..62910447a0fb 100644 --- a/libgfortran/generated/_asin_r8.F90 +++ b/libgfortran/generated/_asin_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ASIN -elemental function specific__asin_r8 (parm) +elemental function _gfortran_specific__asin_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__asin_r8 + real (kind=8) :: _gfortran_specific__asin_r8 - specific__asin_r8 = asin (parm) + _gfortran_specific__asin_r8 = asin (parm) end function #endif diff --git a/libgfortran/generated/_asinh_r10.F90 b/libgfortran/generated/_asinh_r10.F90 index c6a791b661cd..24cf6b658bdb 100644 --- a/libgfortran/generated/_asinh_r10.F90 +++ b/libgfortran/generated/_asinh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ASINHL -elemental function specific__asinh_r10 (parm) +elemental function _gfortran_specific__asinh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__asinh_r10 + real (kind=10) :: _gfortran_specific__asinh_r10 - specific__asinh_r10 = asinh (parm) + _gfortran_specific__asinh_r10 = asinh (parm) end function #endif diff --git a/libgfortran/generated/_asinh_r16.F90 b/libgfortran/generated/_asinh_r16.F90 index 3b2a28b8ab32..09a1f49c5aa3 100644 --- a/libgfortran/generated/_asinh_r16.F90 +++ b/libgfortran/generated/_asinh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ASINHL -elemental function specific__asinh_r16 (parm) +elemental function _gfortran_specific__asinh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__asinh_r16 + real (kind=16) :: _gfortran_specific__asinh_r16 - specific__asinh_r16 = asinh (parm) + _gfortran_specific__asinh_r16 = asinh (parm) end function #endif diff --git a/libgfortran/generated/_asinh_r4.F90 b/libgfortran/generated/_asinh_r4.F90 index de47515bf464..f821bc75a9d7 100644 --- a/libgfortran/generated/_asinh_r4.F90 +++ b/libgfortran/generated/_asinh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ASINHF -elemental function specific__asinh_r4 (parm) +elemental function _gfortran_specific__asinh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__asinh_r4 + real (kind=4) :: _gfortran_specific__asinh_r4 - specific__asinh_r4 = asinh (parm) + _gfortran_specific__asinh_r4 = asinh (parm) end function #endif diff --git a/libgfortran/generated/_asinh_r8.F90 b/libgfortran/generated/_asinh_r8.F90 index 0a6d0bdda4a5..ab3f70af0823 100644 --- a/libgfortran/generated/_asinh_r8.F90 +++ b/libgfortran/generated/_asinh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ASINH -elemental function specific__asinh_r8 (parm) +elemental function _gfortran_specific__asinh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__asinh_r8 + real (kind=8) :: _gfortran_specific__asinh_r8 - specific__asinh_r8 = asinh (parm) + _gfortran_specific__asinh_r8 = asinh (parm) end function #endif diff --git a/libgfortran/generated/_atan2_r10.F90 b/libgfortran/generated/_atan2_r10.F90 index cc9a170bd2d6..d7ea3920f23f 100644 --- a/libgfortran/generated/_atan2_r10.F90 +++ b/libgfortran/generated/_atan2_r10.F90 @@ -39,11 +39,11 @@ #ifdef HAVE_ATAN2L -elemental function specific__atan2_r10 (p1, p2) +elemental function _gfortran_specific__atan2_r10 (p1, p2) real (kind=10), intent (in) :: p1, p2 - real (kind=10) :: specific__atan2_r10 + real (kind=10) :: _gfortran_specific__atan2_r10 - specific__atan2_r10 = atan2 (p1, p2) + _gfortran_specific__atan2_r10 = atan2 (p1, p2) end function #endif diff --git a/libgfortran/generated/_atan2_r16.F90 b/libgfortran/generated/_atan2_r16.F90 index f56aabef8e38..b2a6d60c0aad 100644 --- a/libgfortran/generated/_atan2_r16.F90 +++ b/libgfortran/generated/_atan2_r16.F90 @@ -39,11 +39,11 @@ #ifdef HAVE_ATAN2L -elemental function specific__atan2_r16 (p1, p2) +elemental function _gfortran_specific__atan2_r16 (p1, p2) real (kind=16), intent (in) :: p1, p2 - real (kind=16) :: specific__atan2_r16 + real (kind=16) :: _gfortran_specific__atan2_r16 - specific__atan2_r16 = atan2 (p1, p2) + _gfortran_specific__atan2_r16 = atan2 (p1, p2) end function #endif diff --git a/libgfortran/generated/_atan2_r4.F90 b/libgfortran/generated/_atan2_r4.F90 index 52ecf7917bab..bfeb726ff1c7 100644 --- a/libgfortran/generated/_atan2_r4.F90 +++ b/libgfortran/generated/_atan2_r4.F90 @@ -39,11 +39,11 @@ #ifdef HAVE_ATAN2F -elemental function specific__atan2_r4 (p1, p2) +elemental function _gfortran_specific__atan2_r4 (p1, p2) real (kind=4), intent (in) :: p1, p2 - real (kind=4) :: specific__atan2_r4 + real (kind=4) :: _gfortran_specific__atan2_r4 - specific__atan2_r4 = atan2 (p1, p2) + _gfortran_specific__atan2_r4 = atan2 (p1, p2) end function #endif diff --git a/libgfortran/generated/_atan2_r8.F90 b/libgfortran/generated/_atan2_r8.F90 index 752b16539873..ef83c9d28317 100644 --- a/libgfortran/generated/_atan2_r8.F90 +++ b/libgfortran/generated/_atan2_r8.F90 @@ -39,11 +39,11 @@ #ifdef HAVE_ATAN2 -elemental function specific__atan2_r8 (p1, p2) +elemental function _gfortran_specific__atan2_r8 (p1, p2) real (kind=8), intent (in) :: p1, p2 - real (kind=8) :: specific__atan2_r8 + real (kind=8) :: _gfortran_specific__atan2_r8 - specific__atan2_r8 = atan2 (p1, p2) + _gfortran_specific__atan2_r8 = atan2 (p1, p2) end function #endif diff --git a/libgfortran/generated/_atan_r10.F90 b/libgfortran/generated/_atan_r10.F90 index 195d9414f528..282393391dfd 100644 --- a/libgfortran/generated/_atan_r10.F90 +++ b/libgfortran/generated/_atan_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ATANL -elemental function specific__atan_r10 (parm) +elemental function _gfortran_specific__atan_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__atan_r10 + real (kind=10) :: _gfortran_specific__atan_r10 - specific__atan_r10 = atan (parm) + _gfortran_specific__atan_r10 = atan (parm) end function #endif diff --git a/libgfortran/generated/_atan_r16.F90 b/libgfortran/generated/_atan_r16.F90 index 2691a34fd372..5b4ccb378308 100644 --- a/libgfortran/generated/_atan_r16.F90 +++ b/libgfortran/generated/_atan_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ATANL -elemental function specific__atan_r16 (parm) +elemental function _gfortran_specific__atan_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__atan_r16 + real (kind=16) :: _gfortran_specific__atan_r16 - specific__atan_r16 = atan (parm) + _gfortran_specific__atan_r16 = atan (parm) end function #endif diff --git a/libgfortran/generated/_atan_r4.F90 b/libgfortran/generated/_atan_r4.F90 index 4e88ab24f697..74dc979de6c7 100644 --- a/libgfortran/generated/_atan_r4.F90 +++ b/libgfortran/generated/_atan_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ATANF -elemental function specific__atan_r4 (parm) +elemental function _gfortran_specific__atan_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__atan_r4 + real (kind=4) :: _gfortran_specific__atan_r4 - specific__atan_r4 = atan (parm) + _gfortran_specific__atan_r4 = atan (parm) end function #endif diff --git a/libgfortran/generated/_atan_r8.F90 b/libgfortran/generated/_atan_r8.F90 index a99de95447ba..55b45bdc3d6a 100644 --- a/libgfortran/generated/_atan_r8.F90 +++ b/libgfortran/generated/_atan_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ATAN -elemental function specific__atan_r8 (parm) +elemental function _gfortran_specific__atan_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__atan_r8 + real (kind=8) :: _gfortran_specific__atan_r8 - specific__atan_r8 = atan (parm) + _gfortran_specific__atan_r8 = atan (parm) end function #endif diff --git a/libgfortran/generated/_atanh_r10.F90 b/libgfortran/generated/_atanh_r10.F90 index 75cdf993e647..9cee6dde758b 100644 --- a/libgfortran/generated/_atanh_r10.F90 +++ b/libgfortran/generated/_atanh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_ATANHL -elemental function specific__atanh_r10 (parm) +elemental function _gfortran_specific__atanh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__atanh_r10 + real (kind=10) :: _gfortran_specific__atanh_r10 - specific__atanh_r10 = atanh (parm) + _gfortran_specific__atanh_r10 = atanh (parm) end function #endif diff --git a/libgfortran/generated/_atanh_r16.F90 b/libgfortran/generated/_atanh_r16.F90 index bc6e71cb311c..9322e6a31210 100644 --- a/libgfortran/generated/_atanh_r16.F90 +++ b/libgfortran/generated/_atanh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_ATANHL -elemental function specific__atanh_r16 (parm) +elemental function _gfortran_specific__atanh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__atanh_r16 + real (kind=16) :: _gfortran_specific__atanh_r16 - specific__atanh_r16 = atanh (parm) + _gfortran_specific__atanh_r16 = atanh (parm) end function #endif diff --git a/libgfortran/generated/_atanh_r4.F90 b/libgfortran/generated/_atanh_r4.F90 index edbd4198ef04..f08764a78c51 100644 --- a/libgfortran/generated/_atanh_r4.F90 +++ b/libgfortran/generated/_atanh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_ATANHF -elemental function specific__atanh_r4 (parm) +elemental function _gfortran_specific__atanh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__atanh_r4 + real (kind=4) :: _gfortran_specific__atanh_r4 - specific__atanh_r4 = atanh (parm) + _gfortran_specific__atanh_r4 = atanh (parm) end function #endif diff --git a/libgfortran/generated/_atanh_r8.F90 b/libgfortran/generated/_atanh_r8.F90 index 05dd808ff4b3..b3871086e482 100644 --- a/libgfortran/generated/_atanh_r8.F90 +++ b/libgfortran/generated/_atanh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_ATANH -elemental function specific__atanh_r8 (parm) +elemental function _gfortran_specific__atanh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__atanh_r8 + real (kind=8) :: _gfortran_specific__atanh_r8 - specific__atanh_r8 = atanh (parm) + _gfortran_specific__atanh_r8 = atanh (parm) end function #endif diff --git a/libgfortran/generated/_conjg_c10.F90 b/libgfortran/generated/_conjg_c10.F90 index e03a21bb3249..df082e99a7a7 100644 --- a/libgfortran/generated/_conjg_c10.F90 +++ b/libgfortran/generated/_conjg_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) -elemental function specific__conjg_10 (parm) +elemental function _gfortran_specific__conjg_10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__conjg_10 + complex (kind=10) :: _gfortran_specific__conjg_10 - specific__conjg_10 = conjg (parm) + _gfortran_specific__conjg_10 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c16.F90 b/libgfortran/generated/_conjg_c16.F90 index 876575ebc939..69565bdb1045 100644 --- a/libgfortran/generated/_conjg_c16.F90 +++ b/libgfortran/generated/_conjg_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) -elemental function specific__conjg_16 (parm) +elemental function _gfortran_specific__conjg_16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__conjg_16 + complex (kind=16) :: _gfortran_specific__conjg_16 - specific__conjg_16 = conjg (parm) + _gfortran_specific__conjg_16 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c4.F90 b/libgfortran/generated/_conjg_c4.F90 index ca615ec014f0..5dadbec243f9 100644 --- a/libgfortran/generated/_conjg_c4.F90 +++ b/libgfortran/generated/_conjg_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) -elemental function specific__conjg_4 (parm) +elemental function _gfortran_specific__conjg_4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__conjg_4 + complex (kind=4) :: _gfortran_specific__conjg_4 - specific__conjg_4 = conjg (parm) + _gfortran_specific__conjg_4 = conjg (parm) end function diff --git a/libgfortran/generated/_conjg_c8.F90 b/libgfortran/generated/_conjg_c8.F90 index b58de8ed45f5..bac101fa1ad8 100644 --- a/libgfortran/generated/_conjg_c8.F90 +++ b/libgfortran/generated/_conjg_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) -elemental function specific__conjg_8 (parm) +elemental function _gfortran_specific__conjg_8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__conjg_8 + complex (kind=8) :: _gfortran_specific__conjg_8 - specific__conjg_8 = conjg (parm) + _gfortran_specific__conjg_8 = conjg (parm) end function diff --git a/libgfortran/generated/_cos_c10.F90 b/libgfortran/generated/_cos_c10.F90 index 018394cc9193..e926d862f16d 100644 --- a/libgfortran/generated/_cos_c10.F90 +++ b/libgfortran/generated/_cos_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CCOSL -elemental function specific__cos_c10 (parm) +elemental function _gfortran_specific__cos_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__cos_c10 + complex (kind=10) :: _gfortran_specific__cos_c10 - specific__cos_c10 = cos (parm) + _gfortran_specific__cos_c10 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_c16.F90 b/libgfortran/generated/_cos_c16.F90 index ac6bc8768629..f98ff0f9586d 100644 --- a/libgfortran/generated/_cos_c16.F90 +++ b/libgfortran/generated/_cos_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CCOSL -elemental function specific__cos_c16 (parm) +elemental function _gfortran_specific__cos_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__cos_c16 + complex (kind=16) :: _gfortran_specific__cos_c16 - specific__cos_c16 = cos (parm) + _gfortran_specific__cos_c16 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_c4.F90 b/libgfortran/generated/_cos_c4.F90 index e49469577bc2..3e7e243e5b5f 100644 --- a/libgfortran/generated/_cos_c4.F90 +++ b/libgfortran/generated/_cos_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CCOSF -elemental function specific__cos_c4 (parm) +elemental function _gfortran_specific__cos_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__cos_c4 + complex (kind=4) :: _gfortran_specific__cos_c4 - specific__cos_c4 = cos (parm) + _gfortran_specific__cos_c4 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_c8.F90 b/libgfortran/generated/_cos_c8.F90 index d3daf6e1360d..6a7d1fa07e63 100644 --- a/libgfortran/generated/_cos_c8.F90 +++ b/libgfortran/generated/_cos_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CCOS -elemental function specific__cos_c8 (parm) +elemental function _gfortran_specific__cos_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__cos_c8 + complex (kind=8) :: _gfortran_specific__cos_c8 - specific__cos_c8 = cos (parm) + _gfortran_specific__cos_c8 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_r10.F90 b/libgfortran/generated/_cos_r10.F90 index 142cb4b947f7..c68230ceb480 100644 --- a/libgfortran/generated/_cos_r10.F90 +++ b/libgfortran/generated/_cos_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_COSL -elemental function specific__cos_r10 (parm) +elemental function _gfortran_specific__cos_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__cos_r10 + real (kind=10) :: _gfortran_specific__cos_r10 - specific__cos_r10 = cos (parm) + _gfortran_specific__cos_r10 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_r16.F90 b/libgfortran/generated/_cos_r16.F90 index 434639755c48..e23e7e737fb6 100644 --- a/libgfortran/generated/_cos_r16.F90 +++ b/libgfortran/generated/_cos_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_COSL -elemental function specific__cos_r16 (parm) +elemental function _gfortran_specific__cos_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__cos_r16 + real (kind=16) :: _gfortran_specific__cos_r16 - specific__cos_r16 = cos (parm) + _gfortran_specific__cos_r16 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_r4.F90 b/libgfortran/generated/_cos_r4.F90 index ddf2509a272a..6ae1eadf9255 100644 --- a/libgfortran/generated/_cos_r4.F90 +++ b/libgfortran/generated/_cos_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_COSF -elemental function specific__cos_r4 (parm) +elemental function _gfortran_specific__cos_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__cos_r4 + real (kind=4) :: _gfortran_specific__cos_r4 - specific__cos_r4 = cos (parm) + _gfortran_specific__cos_r4 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cos_r8.F90 b/libgfortran/generated/_cos_r8.F90 index d45a11aa33cd..0addadc26cc5 100644 --- a/libgfortran/generated/_cos_r8.F90 +++ b/libgfortran/generated/_cos_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_COS -elemental function specific__cos_r8 (parm) +elemental function _gfortran_specific__cos_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__cos_r8 + real (kind=8) :: _gfortran_specific__cos_r8 - specific__cos_r8 = cos (parm) + _gfortran_specific__cos_r8 = cos (parm) end function #endif diff --git a/libgfortran/generated/_cosh_r10.F90 b/libgfortran/generated/_cosh_r10.F90 index 9c7d3fbdf883..c82329039e18 100644 --- a/libgfortran/generated/_cosh_r10.F90 +++ b/libgfortran/generated/_cosh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_COSHL -elemental function specific__cosh_r10 (parm) +elemental function _gfortran_specific__cosh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__cosh_r10 + real (kind=10) :: _gfortran_specific__cosh_r10 - specific__cosh_r10 = cosh (parm) + _gfortran_specific__cosh_r10 = cosh (parm) end function #endif diff --git a/libgfortran/generated/_cosh_r16.F90 b/libgfortran/generated/_cosh_r16.F90 index ac28f9965900..cb20cd3af0e4 100644 --- a/libgfortran/generated/_cosh_r16.F90 +++ b/libgfortran/generated/_cosh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_COSHL -elemental function specific__cosh_r16 (parm) +elemental function _gfortran_specific__cosh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__cosh_r16 + real (kind=16) :: _gfortran_specific__cosh_r16 - specific__cosh_r16 = cosh (parm) + _gfortran_specific__cosh_r16 = cosh (parm) end function #endif diff --git a/libgfortran/generated/_cosh_r4.F90 b/libgfortran/generated/_cosh_r4.F90 index 289c9bc0e24a..6559d778e0e0 100644 --- a/libgfortran/generated/_cosh_r4.F90 +++ b/libgfortran/generated/_cosh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_COSHF -elemental function specific__cosh_r4 (parm) +elemental function _gfortran_specific__cosh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__cosh_r4 + real (kind=4) :: _gfortran_specific__cosh_r4 - specific__cosh_r4 = cosh (parm) + _gfortran_specific__cosh_r4 = cosh (parm) end function #endif diff --git a/libgfortran/generated/_cosh_r8.F90 b/libgfortran/generated/_cosh_r8.F90 index 6b47452298c6..00ff5842d26f 100644 --- a/libgfortran/generated/_cosh_r8.F90 +++ b/libgfortran/generated/_cosh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_COSH -elemental function specific__cosh_r8 (parm) +elemental function _gfortran_specific__cosh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__cosh_r8 + real (kind=8) :: _gfortran_specific__cosh_r8 - specific__cosh_r8 = cosh (parm) + _gfortran_specific__cosh_r8 = cosh (parm) end function #endif diff --git a/libgfortran/generated/_dim_i16.F90 b/libgfortran/generated/_dim_i16.F90 index 55a1a521a882..acfc3a4eabfd 100644 --- a/libgfortran/generated/_dim_i16.F90 +++ b/libgfortran/generated/_dim_i16.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_i16 (p1, p2) +elemental function _gfortran_specific__dim_i16 (p1, p2) integer (kind=16), intent (in) :: p1, p2 - integer (kind=16) :: specific__dim_i16 + integer (kind=16) :: _gfortran_specific__dim_i16 - specific__dim_i16 = dim (p1, p2) + _gfortran_specific__dim_i16 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_i4.F90 b/libgfortran/generated/_dim_i4.F90 index 2fd8658460ae..16ef060fbfce 100644 --- a/libgfortran/generated/_dim_i4.F90 +++ b/libgfortran/generated/_dim_i4.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_i4 (p1, p2) +elemental function _gfortran_specific__dim_i4 (p1, p2) integer (kind=4), intent (in) :: p1, p2 - integer (kind=4) :: specific__dim_i4 + integer (kind=4) :: _gfortran_specific__dim_i4 - specific__dim_i4 = dim (p1, p2) + _gfortran_specific__dim_i4 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_i8.F90 b/libgfortran/generated/_dim_i8.F90 index e861d9eb8416..01ca82a967fe 100644 --- a/libgfortran/generated/_dim_i8.F90 +++ b/libgfortran/generated/_dim_i8.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_i8 (p1, p2) +elemental function _gfortran_specific__dim_i8 (p1, p2) integer (kind=8), intent (in) :: p1, p2 - integer (kind=8) :: specific__dim_i8 + integer (kind=8) :: _gfortran_specific__dim_i8 - specific__dim_i8 = dim (p1, p2) + _gfortran_specific__dim_i8 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_r10.F90 b/libgfortran/generated/_dim_r10.F90 index 1e7743d66719..1d140004106b 100644 --- a/libgfortran/generated/_dim_r10.F90 +++ b/libgfortran/generated/_dim_r10.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_r10 (p1, p2) +elemental function _gfortran_specific__dim_r10 (p1, p2) real (kind=10), intent (in) :: p1, p2 - real (kind=10) :: specific__dim_r10 + real (kind=10) :: _gfortran_specific__dim_r10 - specific__dim_r10 = dim (p1, p2) + _gfortran_specific__dim_r10 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_r16.F90 b/libgfortran/generated/_dim_r16.F90 index 97a048890e3e..1f435b3b555f 100644 --- a/libgfortran/generated/_dim_r16.F90 +++ b/libgfortran/generated/_dim_r16.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_r16 (p1, p2) +elemental function _gfortran_specific__dim_r16 (p1, p2) real (kind=16), intent (in) :: p1, p2 - real (kind=16) :: specific__dim_r16 + real (kind=16) :: _gfortran_specific__dim_r16 - specific__dim_r16 = dim (p1, p2) + _gfortran_specific__dim_r16 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_r4.F90 b/libgfortran/generated/_dim_r4.F90 index 465b28489aa3..0c4cd5d6b9aa 100644 --- a/libgfortran/generated/_dim_r4.F90 +++ b/libgfortran/generated/_dim_r4.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_r4 (p1, p2) +elemental function _gfortran_specific__dim_r4 (p1, p2) real (kind=4), intent (in) :: p1, p2 - real (kind=4) :: specific__dim_r4 + real (kind=4) :: _gfortran_specific__dim_r4 - specific__dim_r4 = dim (p1, p2) + _gfortran_specific__dim_r4 = dim (p1, p2) end function diff --git a/libgfortran/generated/_dim_r8.F90 b/libgfortran/generated/_dim_r8.F90 index 3e6b3379fe26..f23b0cce1f97 100644 --- a/libgfortran/generated/_dim_r8.F90 +++ b/libgfortran/generated/_dim_r8.F90 @@ -39,11 +39,11 @@ -elemental function specific__dim_r8 (p1, p2) +elemental function _gfortran_specific__dim_r8 (p1, p2) real (kind=8), intent (in) :: p1, p2 - real (kind=8) :: specific__dim_r8 + real (kind=8) :: _gfortran_specific__dim_r8 - specific__dim_r8 = dim (p1, p2) + _gfortran_specific__dim_r8 = dim (p1, p2) end function diff --git a/libgfortran/generated/_exp_c10.F90 b/libgfortran/generated/_exp_c10.F90 index bcf1f2bdd873..126f55c95362 100644 --- a/libgfortran/generated/_exp_c10.F90 +++ b/libgfortran/generated/_exp_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CEXPL -elemental function specific__exp_c10 (parm) +elemental function _gfortran_specific__exp_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__exp_c10 + complex (kind=10) :: _gfortran_specific__exp_c10 - specific__exp_c10 = exp (parm) + _gfortran_specific__exp_c10 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_c16.F90 b/libgfortran/generated/_exp_c16.F90 index 58527bc536ab..ad7d4dc7244f 100644 --- a/libgfortran/generated/_exp_c16.F90 +++ b/libgfortran/generated/_exp_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CEXPL -elemental function specific__exp_c16 (parm) +elemental function _gfortran_specific__exp_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__exp_c16 + complex (kind=16) :: _gfortran_specific__exp_c16 - specific__exp_c16 = exp (parm) + _gfortran_specific__exp_c16 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_c4.F90 b/libgfortran/generated/_exp_c4.F90 index 6fba6756be9c..866820b33cc3 100644 --- a/libgfortran/generated/_exp_c4.F90 +++ b/libgfortran/generated/_exp_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CEXPF -elemental function specific__exp_c4 (parm) +elemental function _gfortran_specific__exp_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__exp_c4 + complex (kind=4) :: _gfortran_specific__exp_c4 - specific__exp_c4 = exp (parm) + _gfortran_specific__exp_c4 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_c8.F90 b/libgfortran/generated/_exp_c8.F90 index cbc82a156dd0..2112ce861a0e 100644 --- a/libgfortran/generated/_exp_c8.F90 +++ b/libgfortran/generated/_exp_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CEXP -elemental function specific__exp_c8 (parm) +elemental function _gfortran_specific__exp_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__exp_c8 + complex (kind=8) :: _gfortran_specific__exp_c8 - specific__exp_c8 = exp (parm) + _gfortran_specific__exp_c8 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_r10.F90 b/libgfortran/generated/_exp_r10.F90 index 86bf749943a8..03e8fa02902a 100644 --- a/libgfortran/generated/_exp_r10.F90 +++ b/libgfortran/generated/_exp_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_EXPL -elemental function specific__exp_r10 (parm) +elemental function _gfortran_specific__exp_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__exp_r10 + real (kind=10) :: _gfortran_specific__exp_r10 - specific__exp_r10 = exp (parm) + _gfortran_specific__exp_r10 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_r16.F90 b/libgfortran/generated/_exp_r16.F90 index 4aaee9eb17d8..a88733c91f4f 100644 --- a/libgfortran/generated/_exp_r16.F90 +++ b/libgfortran/generated/_exp_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_EXPL -elemental function specific__exp_r16 (parm) +elemental function _gfortran_specific__exp_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__exp_r16 + real (kind=16) :: _gfortran_specific__exp_r16 - specific__exp_r16 = exp (parm) + _gfortran_specific__exp_r16 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_r4.F90 b/libgfortran/generated/_exp_r4.F90 index d76fb143cc64..0d71d2e493bd 100644 --- a/libgfortran/generated/_exp_r4.F90 +++ b/libgfortran/generated/_exp_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_EXPF -elemental function specific__exp_r4 (parm) +elemental function _gfortran_specific__exp_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__exp_r4 + real (kind=4) :: _gfortran_specific__exp_r4 - specific__exp_r4 = exp (parm) + _gfortran_specific__exp_r4 = exp (parm) end function #endif diff --git a/libgfortran/generated/_exp_r8.F90 b/libgfortran/generated/_exp_r8.F90 index d529810ca57c..e0e2c8d057a4 100644 --- a/libgfortran/generated/_exp_r8.F90 +++ b/libgfortran/generated/_exp_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_EXP -elemental function specific__exp_r8 (parm) +elemental function _gfortran_specific__exp_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__exp_r8 + real (kind=8) :: _gfortran_specific__exp_r8 - specific__exp_r8 = exp (parm) + _gfortran_specific__exp_r8 = exp (parm) end function #endif diff --git a/libgfortran/generated/_log10_r10.F90 b/libgfortran/generated/_log10_r10.F90 index 19aeac5c1bef..f293489eb185 100644 --- a/libgfortran/generated/_log10_r10.F90 +++ b/libgfortran/generated/_log10_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_LOG10L -elemental function specific__log10_r10 (parm) +elemental function _gfortran_specific__log10_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__log10_r10 + real (kind=10) :: _gfortran_specific__log10_r10 - specific__log10_r10 = log10 (parm) + _gfortran_specific__log10_r10 = log10 (parm) end function #endif diff --git a/libgfortran/generated/_log10_r16.F90 b/libgfortran/generated/_log10_r16.F90 index c03002aa4560..f690879953b3 100644 --- a/libgfortran/generated/_log10_r16.F90 +++ b/libgfortran/generated/_log10_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_LOG10L -elemental function specific__log10_r16 (parm) +elemental function _gfortran_specific__log10_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__log10_r16 + real (kind=16) :: _gfortran_specific__log10_r16 - specific__log10_r16 = log10 (parm) + _gfortran_specific__log10_r16 = log10 (parm) end function #endif diff --git a/libgfortran/generated/_log10_r4.F90 b/libgfortran/generated/_log10_r4.F90 index c772527ae861..bcadf2417ee2 100644 --- a/libgfortran/generated/_log10_r4.F90 +++ b/libgfortran/generated/_log10_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_LOG10F -elemental function specific__log10_r4 (parm) +elemental function _gfortran_specific__log10_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__log10_r4 + real (kind=4) :: _gfortran_specific__log10_r4 - specific__log10_r4 = log10 (parm) + _gfortran_specific__log10_r4 = log10 (parm) end function #endif diff --git a/libgfortran/generated/_log10_r8.F90 b/libgfortran/generated/_log10_r8.F90 index 396570989e6a..7d55ad703e7b 100644 --- a/libgfortran/generated/_log10_r8.F90 +++ b/libgfortran/generated/_log10_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_LOG10 -elemental function specific__log10_r8 (parm) +elemental function _gfortran_specific__log10_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__log10_r8 + real (kind=8) :: _gfortran_specific__log10_r8 - specific__log10_r8 = log10 (parm) + _gfortran_specific__log10_r8 = log10 (parm) end function #endif diff --git a/libgfortran/generated/_log_c10.F90 b/libgfortran/generated/_log_c10.F90 index e3f6934e6288..90e415bcd2e8 100644 --- a/libgfortran/generated/_log_c10.F90 +++ b/libgfortran/generated/_log_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CLOGL -elemental function specific__log_c10 (parm) +elemental function _gfortran_specific__log_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__log_c10 + complex (kind=10) :: _gfortran_specific__log_c10 - specific__log_c10 = log (parm) + _gfortran_specific__log_c10 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_c16.F90 b/libgfortran/generated/_log_c16.F90 index 776140a7e78b..d9db7cea0355 100644 --- a/libgfortran/generated/_log_c16.F90 +++ b/libgfortran/generated/_log_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CLOGL -elemental function specific__log_c16 (parm) +elemental function _gfortran_specific__log_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__log_c16 + complex (kind=16) :: _gfortran_specific__log_c16 - specific__log_c16 = log (parm) + _gfortran_specific__log_c16 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_c4.F90 b/libgfortran/generated/_log_c4.F90 index 923bdd573cab..550ed1d6eed9 100644 --- a/libgfortran/generated/_log_c4.F90 +++ b/libgfortran/generated/_log_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CLOGF -elemental function specific__log_c4 (parm) +elemental function _gfortran_specific__log_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__log_c4 + complex (kind=4) :: _gfortran_specific__log_c4 - specific__log_c4 = log (parm) + _gfortran_specific__log_c4 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_c8.F90 b/libgfortran/generated/_log_c8.F90 index 0df0dd83d2d1..ee26dc21f154 100644 --- a/libgfortran/generated/_log_c8.F90 +++ b/libgfortran/generated/_log_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CLOG -elemental function specific__log_c8 (parm) +elemental function _gfortran_specific__log_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__log_c8 + complex (kind=8) :: _gfortran_specific__log_c8 - specific__log_c8 = log (parm) + _gfortran_specific__log_c8 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_r10.F90 b/libgfortran/generated/_log_r10.F90 index d8938818053b..ca7d33743895 100644 --- a/libgfortran/generated/_log_r10.F90 +++ b/libgfortran/generated/_log_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_LOGL -elemental function specific__log_r10 (parm) +elemental function _gfortran_specific__log_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__log_r10 + real (kind=10) :: _gfortran_specific__log_r10 - specific__log_r10 = log (parm) + _gfortran_specific__log_r10 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_r16.F90 b/libgfortran/generated/_log_r16.F90 index 5013656e9da8..7bd4038a5004 100644 --- a/libgfortran/generated/_log_r16.F90 +++ b/libgfortran/generated/_log_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_LOGL -elemental function specific__log_r16 (parm) +elemental function _gfortran_specific__log_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__log_r16 + real (kind=16) :: _gfortran_specific__log_r16 - specific__log_r16 = log (parm) + _gfortran_specific__log_r16 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_r4.F90 b/libgfortran/generated/_log_r4.F90 index 6a742377648d..b4e6217bfe10 100644 --- a/libgfortran/generated/_log_r4.F90 +++ b/libgfortran/generated/_log_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_LOGF -elemental function specific__log_r4 (parm) +elemental function _gfortran_specific__log_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__log_r4 + real (kind=4) :: _gfortran_specific__log_r4 - specific__log_r4 = log (parm) + _gfortran_specific__log_r4 = log (parm) end function #endif diff --git a/libgfortran/generated/_log_r8.F90 b/libgfortran/generated/_log_r8.F90 index 8383bbfd36a9..a0b149b16ce4 100644 --- a/libgfortran/generated/_log_r8.F90 +++ b/libgfortran/generated/_log_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_LOG -elemental function specific__log_r8 (parm) +elemental function _gfortran_specific__log_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__log_r8 + real (kind=8) :: _gfortran_specific__log_r8 - specific__log_r8 = log (parm) + _gfortran_specific__log_r8 = log (parm) end function #endif diff --git a/libgfortran/generated/_mod_i16.F90 b/libgfortran/generated/_mod_i16.F90 index 571db409bf9e..fd851b8d218e 100644 --- a/libgfortran/generated/_mod_i16.F90 +++ b/libgfortran/generated/_mod_i16.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_i16 (p1, p2) +elemental function _gfortran_specific__mod_i16 (p1, p2) integer (kind=16), intent (in) :: p1, p2 - integer (kind=16) :: specific__mod_i16 + integer (kind=16) :: _gfortran_specific__mod_i16 - specific__mod_i16 = mod (p1, p2) + _gfortran_specific__mod_i16 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_i4.F90 b/libgfortran/generated/_mod_i4.F90 index ec6f81dee2a0..7f5bcb220158 100644 --- a/libgfortran/generated/_mod_i4.F90 +++ b/libgfortran/generated/_mod_i4.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_i4 (p1, p2) +elemental function _gfortran_specific__mod_i4 (p1, p2) integer (kind=4), intent (in) :: p1, p2 - integer (kind=4) :: specific__mod_i4 + integer (kind=4) :: _gfortran_specific__mod_i4 - specific__mod_i4 = mod (p1, p2) + _gfortran_specific__mod_i4 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_i8.F90 b/libgfortran/generated/_mod_i8.F90 index e34278b13eca..94f6c7b85f44 100644 --- a/libgfortran/generated/_mod_i8.F90 +++ b/libgfortran/generated/_mod_i8.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_i8 (p1, p2) +elemental function _gfortran_specific__mod_i8 (p1, p2) integer (kind=8), intent (in) :: p1, p2 - integer (kind=8) :: specific__mod_i8 + integer (kind=8) :: _gfortran_specific__mod_i8 - specific__mod_i8 = mod (p1, p2) + _gfortran_specific__mod_i8 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_r10.F90 b/libgfortran/generated/_mod_r10.F90 index 9826d122f57a..a4cf1d040467 100644 --- a/libgfortran/generated/_mod_r10.F90 +++ b/libgfortran/generated/_mod_r10.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_r10 (p1, p2) +elemental function _gfortran_specific__mod_r10 (p1, p2) real (kind=10), intent (in) :: p1, p2 - real (kind=10) :: specific__mod_r10 + real (kind=10) :: _gfortran_specific__mod_r10 - specific__mod_r10 = mod (p1, p2) + _gfortran_specific__mod_r10 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_r16.F90 b/libgfortran/generated/_mod_r16.F90 index 15c2b815b1c6..6ae2c4f1758f 100644 --- a/libgfortran/generated/_mod_r16.F90 +++ b/libgfortran/generated/_mod_r16.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_r16 (p1, p2) +elemental function _gfortran_specific__mod_r16 (p1, p2) real (kind=16), intent (in) :: p1, p2 - real (kind=16) :: specific__mod_r16 + real (kind=16) :: _gfortran_specific__mod_r16 - specific__mod_r16 = mod (p1, p2) + _gfortran_specific__mod_r16 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_r4.F90 b/libgfortran/generated/_mod_r4.F90 index 6742ee488aff..dfb0f078e8ee 100644 --- a/libgfortran/generated/_mod_r4.F90 +++ b/libgfortran/generated/_mod_r4.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_r4 (p1, p2) +elemental function _gfortran_specific__mod_r4 (p1, p2) real (kind=4), intent (in) :: p1, p2 - real (kind=4) :: specific__mod_r4 + real (kind=4) :: _gfortran_specific__mod_r4 - specific__mod_r4 = mod (p1, p2) + _gfortran_specific__mod_r4 = mod (p1, p2) end function diff --git a/libgfortran/generated/_mod_r8.F90 b/libgfortran/generated/_mod_r8.F90 index 3cc7e1651114..50df377fc6b6 100644 --- a/libgfortran/generated/_mod_r8.F90 +++ b/libgfortran/generated/_mod_r8.F90 @@ -39,11 +39,11 @@ -elemental function specific__mod_r8 (p1, p2) +elemental function _gfortran_specific__mod_r8 (p1, p2) real (kind=8), intent (in) :: p1, p2 - real (kind=8) :: specific__mod_r8 + real (kind=8) :: _gfortran_specific__mod_r8 - specific__mod_r8 = mod (p1, p2) + _gfortran_specific__mod_r8 = mod (p1, p2) end function diff --git a/libgfortran/generated/_sign_i16.F90 b/libgfortran/generated/_sign_i16.F90 index 50e492c3f802..3e642b29b811 100644 --- a/libgfortran/generated/_sign_i16.F90 +++ b/libgfortran/generated/_sign_i16.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_i16 (p1, p2) +elemental function _gfortran_specific__sign_i16 (p1, p2) integer (kind=16), intent (in) :: p1, p2 - integer (kind=16) :: specific__sign_i16 + integer (kind=16) :: _gfortran_specific__sign_i16 - specific__sign_i16 = sign (p1, p2) + _gfortran_specific__sign_i16 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_i4.F90 b/libgfortran/generated/_sign_i4.F90 index d9ea551c6d9d..d637aae54bf6 100644 --- a/libgfortran/generated/_sign_i4.F90 +++ b/libgfortran/generated/_sign_i4.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_i4 (p1, p2) +elemental function _gfortran_specific__sign_i4 (p1, p2) integer (kind=4), intent (in) :: p1, p2 - integer (kind=4) :: specific__sign_i4 + integer (kind=4) :: _gfortran_specific__sign_i4 - specific__sign_i4 = sign (p1, p2) + _gfortran_specific__sign_i4 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_i8.F90 b/libgfortran/generated/_sign_i8.F90 index 241fb8b0f1c9..00d0eda6964c 100644 --- a/libgfortran/generated/_sign_i8.F90 +++ b/libgfortran/generated/_sign_i8.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_i8 (p1, p2) +elemental function _gfortran_specific__sign_i8 (p1, p2) integer (kind=8), intent (in) :: p1, p2 - integer (kind=8) :: specific__sign_i8 + integer (kind=8) :: _gfortran_specific__sign_i8 - specific__sign_i8 = sign (p1, p2) + _gfortran_specific__sign_i8 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_r10.F90 b/libgfortran/generated/_sign_r10.F90 index 002330f0d80c..b165526b579a 100644 --- a/libgfortran/generated/_sign_r10.F90 +++ b/libgfortran/generated/_sign_r10.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_r10 (p1, p2) +elemental function _gfortran_specific__sign_r10 (p1, p2) real (kind=10), intent (in) :: p1, p2 - real (kind=10) :: specific__sign_r10 + real (kind=10) :: _gfortran_specific__sign_r10 - specific__sign_r10 = sign (p1, p2) + _gfortran_specific__sign_r10 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_r16.F90 b/libgfortran/generated/_sign_r16.F90 index 8377969c67ae..5e66148d3ffe 100644 --- a/libgfortran/generated/_sign_r16.F90 +++ b/libgfortran/generated/_sign_r16.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_r16 (p1, p2) +elemental function _gfortran_specific__sign_r16 (p1, p2) real (kind=16), intent (in) :: p1, p2 - real (kind=16) :: specific__sign_r16 + real (kind=16) :: _gfortran_specific__sign_r16 - specific__sign_r16 = sign (p1, p2) + _gfortran_specific__sign_r16 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_r4.F90 b/libgfortran/generated/_sign_r4.F90 index e11f15d093ed..6428b9adf4fb 100644 --- a/libgfortran/generated/_sign_r4.F90 +++ b/libgfortran/generated/_sign_r4.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_r4 (p1, p2) +elemental function _gfortran_specific__sign_r4 (p1, p2) real (kind=4), intent (in) :: p1, p2 - real (kind=4) :: specific__sign_r4 + real (kind=4) :: _gfortran_specific__sign_r4 - specific__sign_r4 = sign (p1, p2) + _gfortran_specific__sign_r4 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sign_r8.F90 b/libgfortran/generated/_sign_r8.F90 index 66f8dee53a52..452132dd0fe9 100644 --- a/libgfortran/generated/_sign_r8.F90 +++ b/libgfortran/generated/_sign_r8.F90 @@ -39,11 +39,11 @@ -elemental function specific__sign_r8 (p1, p2) +elemental function _gfortran_specific__sign_r8 (p1, p2) real (kind=8), intent (in) :: p1, p2 - real (kind=8) :: specific__sign_r8 + real (kind=8) :: _gfortran_specific__sign_r8 - specific__sign_r8 = sign (p1, p2) + _gfortran_specific__sign_r8 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sin_c10.F90 b/libgfortran/generated/_sin_c10.F90 index 2c34b3c931d2..6384598ee849 100644 --- a/libgfortran/generated/_sin_c10.F90 +++ b/libgfortran/generated/_sin_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CSINL -elemental function specific__sin_c10 (parm) +elemental function _gfortran_specific__sin_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__sin_c10 + complex (kind=10) :: _gfortran_specific__sin_c10 - specific__sin_c10 = sin (parm) + _gfortran_specific__sin_c10 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_c16.F90 b/libgfortran/generated/_sin_c16.F90 index 75a7108795fe..4e8f445f722b 100644 --- a/libgfortran/generated/_sin_c16.F90 +++ b/libgfortran/generated/_sin_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CSINL -elemental function specific__sin_c16 (parm) +elemental function _gfortran_specific__sin_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__sin_c16 + complex (kind=16) :: _gfortran_specific__sin_c16 - specific__sin_c16 = sin (parm) + _gfortran_specific__sin_c16 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_c4.F90 b/libgfortran/generated/_sin_c4.F90 index 0efc127d87f7..7f4b6be63079 100644 --- a/libgfortran/generated/_sin_c4.F90 +++ b/libgfortran/generated/_sin_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CSINF -elemental function specific__sin_c4 (parm) +elemental function _gfortran_specific__sin_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__sin_c4 + complex (kind=4) :: _gfortran_specific__sin_c4 - specific__sin_c4 = sin (parm) + _gfortran_specific__sin_c4 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_c8.F90 b/libgfortran/generated/_sin_c8.F90 index 73a27a42e69c..9abd4a13ec4a 100644 --- a/libgfortran/generated/_sin_c8.F90 +++ b/libgfortran/generated/_sin_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CSIN -elemental function specific__sin_c8 (parm) +elemental function _gfortran_specific__sin_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__sin_c8 + complex (kind=8) :: _gfortran_specific__sin_c8 - specific__sin_c8 = sin (parm) + _gfortran_specific__sin_c8 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_r10.F90 b/libgfortran/generated/_sin_r10.F90 index 55f5871fc3de..f201962e6891 100644 --- a/libgfortran/generated/_sin_r10.F90 +++ b/libgfortran/generated/_sin_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_SINL -elemental function specific__sin_r10 (parm) +elemental function _gfortran_specific__sin_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__sin_r10 + real (kind=10) :: _gfortran_specific__sin_r10 - specific__sin_r10 = sin (parm) + _gfortran_specific__sin_r10 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_r16.F90 b/libgfortran/generated/_sin_r16.F90 index 3757cc0b1f8e..10c86a88e49a 100644 --- a/libgfortran/generated/_sin_r16.F90 +++ b/libgfortran/generated/_sin_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_SINL -elemental function specific__sin_r16 (parm) +elemental function _gfortran_specific__sin_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__sin_r16 + real (kind=16) :: _gfortran_specific__sin_r16 - specific__sin_r16 = sin (parm) + _gfortran_specific__sin_r16 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_r4.F90 b/libgfortran/generated/_sin_r4.F90 index 4fea10356e91..b586928daf0d 100644 --- a/libgfortran/generated/_sin_r4.F90 +++ b/libgfortran/generated/_sin_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_SINF -elemental function specific__sin_r4 (parm) +elemental function _gfortran_specific__sin_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__sin_r4 + real (kind=4) :: _gfortran_specific__sin_r4 - specific__sin_r4 = sin (parm) + _gfortran_specific__sin_r4 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sin_r8.F90 b/libgfortran/generated/_sin_r8.F90 index e35c3d1c2545..cb8e25772d90 100644 --- a/libgfortran/generated/_sin_r8.F90 +++ b/libgfortran/generated/_sin_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_SIN -elemental function specific__sin_r8 (parm) +elemental function _gfortran_specific__sin_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__sin_r8 + real (kind=8) :: _gfortran_specific__sin_r8 - specific__sin_r8 = sin (parm) + _gfortran_specific__sin_r8 = sin (parm) end function #endif diff --git a/libgfortran/generated/_sinh_r10.F90 b/libgfortran/generated/_sinh_r10.F90 index 7aa5e98a2f37..67609d682d22 100644 --- a/libgfortran/generated/_sinh_r10.F90 +++ b/libgfortran/generated/_sinh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_SINHL -elemental function specific__sinh_r10 (parm) +elemental function _gfortran_specific__sinh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__sinh_r10 + real (kind=10) :: _gfortran_specific__sinh_r10 - specific__sinh_r10 = sinh (parm) + _gfortran_specific__sinh_r10 = sinh (parm) end function #endif diff --git a/libgfortran/generated/_sinh_r16.F90 b/libgfortran/generated/_sinh_r16.F90 index 6ea69470788b..6274a59b7d61 100644 --- a/libgfortran/generated/_sinh_r16.F90 +++ b/libgfortran/generated/_sinh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_SINHL -elemental function specific__sinh_r16 (parm) +elemental function _gfortran_specific__sinh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__sinh_r16 + real (kind=16) :: _gfortran_specific__sinh_r16 - specific__sinh_r16 = sinh (parm) + _gfortran_specific__sinh_r16 = sinh (parm) end function #endif diff --git a/libgfortran/generated/_sinh_r4.F90 b/libgfortran/generated/_sinh_r4.F90 index 1101debe9025..116f205385c9 100644 --- a/libgfortran/generated/_sinh_r4.F90 +++ b/libgfortran/generated/_sinh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_SINHF -elemental function specific__sinh_r4 (parm) +elemental function _gfortran_specific__sinh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__sinh_r4 + real (kind=4) :: _gfortran_specific__sinh_r4 - specific__sinh_r4 = sinh (parm) + _gfortran_specific__sinh_r4 = sinh (parm) end function #endif diff --git a/libgfortran/generated/_sinh_r8.F90 b/libgfortran/generated/_sinh_r8.F90 index 63eb8d5c2465..bb4ceae479ca 100644 --- a/libgfortran/generated/_sinh_r8.F90 +++ b/libgfortran/generated/_sinh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_SINH -elemental function specific__sinh_r8 (parm) +elemental function _gfortran_specific__sinh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__sinh_r8 + real (kind=8) :: _gfortran_specific__sinh_r8 - specific__sinh_r8 = sinh (parm) + _gfortran_specific__sinh_r8 = sinh (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_c10.F90 b/libgfortran/generated/_sqrt_c10.F90 index 2159a6b93aaa..d6ca3b64daba 100644 --- a/libgfortran/generated/_sqrt_c10.F90 +++ b/libgfortran/generated/_sqrt_c10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_10) #ifdef HAVE_CSQRTL -elemental function specific__sqrt_c10 (parm) +elemental function _gfortran_specific__sqrt_c10 (parm) complex (kind=10), intent (in) :: parm - complex (kind=10) :: specific__sqrt_c10 + complex (kind=10) :: _gfortran_specific__sqrt_c10 - specific__sqrt_c10 = sqrt (parm) + _gfortran_specific__sqrt_c10 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_c16.F90 b/libgfortran/generated/_sqrt_c16.F90 index 2ee9c83a1bbb..247bdf5f09da 100644 --- a/libgfortran/generated/_sqrt_c16.F90 +++ b/libgfortran/generated/_sqrt_c16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_16) #ifdef HAVE_CSQRTL -elemental function specific__sqrt_c16 (parm) +elemental function _gfortran_specific__sqrt_c16 (parm) complex (kind=16), intent (in) :: parm - complex (kind=16) :: specific__sqrt_c16 + complex (kind=16) :: _gfortran_specific__sqrt_c16 - specific__sqrt_c16 = sqrt (parm) + _gfortran_specific__sqrt_c16 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_c4.F90 b/libgfortran/generated/_sqrt_c4.F90 index 1e88a3d6e5db..7a8195f9dca0 100644 --- a/libgfortran/generated/_sqrt_c4.F90 +++ b/libgfortran/generated/_sqrt_c4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_4) #ifdef HAVE_CSQRTF -elemental function specific__sqrt_c4 (parm) +elemental function _gfortran_specific__sqrt_c4 (parm) complex (kind=4), intent (in) :: parm - complex (kind=4) :: specific__sqrt_c4 + complex (kind=4) :: _gfortran_specific__sqrt_c4 - specific__sqrt_c4 = sqrt (parm) + _gfortran_specific__sqrt_c4 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_c8.F90 b/libgfortran/generated/_sqrt_c8.F90 index edd5e399b0b7..1e1e153a91f6 100644 --- a/libgfortran/generated/_sqrt_c8.F90 +++ b/libgfortran/generated/_sqrt_c8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_COMPLEX_8) #ifdef HAVE_CSQRT -elemental function specific__sqrt_c8 (parm) +elemental function _gfortran_specific__sqrt_c8 (parm) complex (kind=8), intent (in) :: parm - complex (kind=8) :: specific__sqrt_c8 + complex (kind=8) :: _gfortran_specific__sqrt_c8 - specific__sqrt_c8 = sqrt (parm) + _gfortran_specific__sqrt_c8 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_r10.F90 b/libgfortran/generated/_sqrt_r10.F90 index 2ea81ba56cbd..b770433ae9f3 100644 --- a/libgfortran/generated/_sqrt_r10.F90 +++ b/libgfortran/generated/_sqrt_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_SQRTL -elemental function specific__sqrt_r10 (parm) +elemental function _gfortran_specific__sqrt_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__sqrt_r10 + real (kind=10) :: _gfortran_specific__sqrt_r10 - specific__sqrt_r10 = sqrt (parm) + _gfortran_specific__sqrt_r10 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_r16.F90 b/libgfortran/generated/_sqrt_r16.F90 index 5ecd027bd1be..8e796f8b3a25 100644 --- a/libgfortran/generated/_sqrt_r16.F90 +++ b/libgfortran/generated/_sqrt_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_SQRTL -elemental function specific__sqrt_r16 (parm) +elemental function _gfortran_specific__sqrt_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__sqrt_r16 + real (kind=16) :: _gfortran_specific__sqrt_r16 - specific__sqrt_r16 = sqrt (parm) + _gfortran_specific__sqrt_r16 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_r4.F90 b/libgfortran/generated/_sqrt_r4.F90 index 43c710f0dd2e..2181cd09d780 100644 --- a/libgfortran/generated/_sqrt_r4.F90 +++ b/libgfortran/generated/_sqrt_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_SQRTF -elemental function specific__sqrt_r4 (parm) +elemental function _gfortran_specific__sqrt_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__sqrt_r4 + real (kind=4) :: _gfortran_specific__sqrt_r4 - specific__sqrt_r4 = sqrt (parm) + _gfortran_specific__sqrt_r4 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_sqrt_r8.F90 b/libgfortran/generated/_sqrt_r8.F90 index 2f710962b8f7..47253da4e32c 100644 --- a/libgfortran/generated/_sqrt_r8.F90 +++ b/libgfortran/generated/_sqrt_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_SQRT -elemental function specific__sqrt_r8 (parm) +elemental function _gfortran_specific__sqrt_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__sqrt_r8 + real (kind=8) :: _gfortran_specific__sqrt_r8 - specific__sqrt_r8 = sqrt (parm) + _gfortran_specific__sqrt_r8 = sqrt (parm) end function #endif diff --git a/libgfortran/generated/_tan_r10.F90 b/libgfortran/generated/_tan_r10.F90 index d4c06ae4a86b..f2829e72eced 100644 --- a/libgfortran/generated/_tan_r10.F90 +++ b/libgfortran/generated/_tan_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_TANL -elemental function specific__tan_r10 (parm) +elemental function _gfortran_specific__tan_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__tan_r10 + real (kind=10) :: _gfortran_specific__tan_r10 - specific__tan_r10 = tan (parm) + _gfortran_specific__tan_r10 = tan (parm) end function #endif diff --git a/libgfortran/generated/_tan_r16.F90 b/libgfortran/generated/_tan_r16.F90 index 5a6f61a3f9df..dcc7f8e8c096 100644 --- a/libgfortran/generated/_tan_r16.F90 +++ b/libgfortran/generated/_tan_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_TANL -elemental function specific__tan_r16 (parm) +elemental function _gfortran_specific__tan_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__tan_r16 + real (kind=16) :: _gfortran_specific__tan_r16 - specific__tan_r16 = tan (parm) + _gfortran_specific__tan_r16 = tan (parm) end function #endif diff --git a/libgfortran/generated/_tan_r4.F90 b/libgfortran/generated/_tan_r4.F90 index ee8f438d7e27..638cc8da7507 100644 --- a/libgfortran/generated/_tan_r4.F90 +++ b/libgfortran/generated/_tan_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_TANF -elemental function specific__tan_r4 (parm) +elemental function _gfortran_specific__tan_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__tan_r4 + real (kind=4) :: _gfortran_specific__tan_r4 - specific__tan_r4 = tan (parm) + _gfortran_specific__tan_r4 = tan (parm) end function #endif diff --git a/libgfortran/generated/_tan_r8.F90 b/libgfortran/generated/_tan_r8.F90 index f2e357b2dd1e..cea722506662 100644 --- a/libgfortran/generated/_tan_r8.F90 +++ b/libgfortran/generated/_tan_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_TAN -elemental function specific__tan_r8 (parm) +elemental function _gfortran_specific__tan_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__tan_r8 + real (kind=8) :: _gfortran_specific__tan_r8 - specific__tan_r8 = tan (parm) + _gfortran_specific__tan_r8 = tan (parm) end function #endif diff --git a/libgfortran/generated/_tanh_r10.F90 b/libgfortran/generated/_tanh_r10.F90 index 5d04f65475da..6994238888af 100644 --- a/libgfortran/generated/_tanh_r10.F90 +++ b/libgfortran/generated/_tanh_r10.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_10) #ifdef HAVE_TANHL -elemental function specific__tanh_r10 (parm) +elemental function _gfortran_specific__tanh_r10 (parm) real (kind=10), intent (in) :: parm - real (kind=10) :: specific__tanh_r10 + real (kind=10) :: _gfortran_specific__tanh_r10 - specific__tanh_r10 = tanh (parm) + _gfortran_specific__tanh_r10 = tanh (parm) end function #endif diff --git a/libgfortran/generated/_tanh_r16.F90 b/libgfortran/generated/_tanh_r16.F90 index 9a858b5c071c..d7dca6807008 100644 --- a/libgfortran/generated/_tanh_r16.F90 +++ b/libgfortran/generated/_tanh_r16.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_16) #ifdef HAVE_TANHL -elemental function specific__tanh_r16 (parm) +elemental function _gfortran_specific__tanh_r16 (parm) real (kind=16), intent (in) :: parm - real (kind=16) :: specific__tanh_r16 + real (kind=16) :: _gfortran_specific__tanh_r16 - specific__tanh_r16 = tanh (parm) + _gfortran_specific__tanh_r16 = tanh (parm) end function #endif diff --git a/libgfortran/generated/_tanh_r4.F90 b/libgfortran/generated/_tanh_r4.F90 index 0872fe66540e..098d9b86848b 100644 --- a/libgfortran/generated/_tanh_r4.F90 +++ b/libgfortran/generated/_tanh_r4.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_4) #ifdef HAVE_TANHF -elemental function specific__tanh_r4 (parm) +elemental function _gfortran_specific__tanh_r4 (parm) real (kind=4), intent (in) :: parm - real (kind=4) :: specific__tanh_r4 + real (kind=4) :: _gfortran_specific__tanh_r4 - specific__tanh_r4 = tanh (parm) + _gfortran_specific__tanh_r4 = tanh (parm) end function #endif diff --git a/libgfortran/generated/_tanh_r8.F90 b/libgfortran/generated/_tanh_r8.F90 index 40a6668e403c..ca7c7ccc71da 100644 --- a/libgfortran/generated/_tanh_r8.F90 +++ b/libgfortran/generated/_tanh_r8.F90 @@ -40,11 +40,11 @@ #if defined (HAVE_GFC_REAL_8) #ifdef HAVE_TANH -elemental function specific__tanh_r8 (parm) +elemental function _gfortran_specific__tanh_r8 (parm) real (kind=8), intent (in) :: parm - real (kind=8) :: specific__tanh_r8 + real (kind=8) :: _gfortran_specific__tanh_r8 - specific__tanh_r8 = tanh (parm) + _gfortran_specific__tanh_r8 = tanh (parm) end function #endif diff --git a/libgfortran/generated/misc_specifics.F90 b/libgfortran/generated/misc_specifics.F90 index a3b103b924a1..29e999f7651b 100644 --- a/libgfortran/generated/misc_specifics.F90 +++ b/libgfortran/generated/misc_specifics.F90 @@ -36,176 +36,176 @@ #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4) -elemental function specific__nint_4_4 (parm) +elemental function _gfortran_specific__nint_4_4 (parm) real (kind=4) , intent (in) :: parm - integer (kind=4) :: specific__nint_4_4 - specific__nint_4_4 = nint (parm) + integer (kind=4) :: _gfortran_specific__nint_4_4 + _gfortran_specific__nint_4_4 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) -elemental function specific__nint_4_8 (parm) +elemental function _gfortran_specific__nint_4_8 (parm) real (kind=8) , intent (in) :: parm - integer (kind=4) :: specific__nint_4_8 - specific__nint_4_8 = nint (parm) + integer (kind=4) :: _gfortran_specific__nint_4_8 + _gfortran_specific__nint_4_8 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) -elemental function specific__nint_4_10 (parm) +elemental function _gfortran_specific__nint_4_10 (parm) real (kind=10) , intent (in) :: parm - integer (kind=4) :: specific__nint_4_10 - specific__nint_4_10 = nint (parm) + integer (kind=4) :: _gfortran_specific__nint_4_10 + _gfortran_specific__nint_4_10 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) -elemental function specific__nint_4_16 (parm) +elemental function _gfortran_specific__nint_4_16 (parm) real (kind=16) , intent (in) :: parm - integer (kind=4) :: specific__nint_4_16 - specific__nint_4_16 = nint (parm) + integer (kind=4) :: _gfortran_specific__nint_4_16 + _gfortran_specific__nint_4_16 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) -elemental function specific__nint_8_4 (parm) +elemental function _gfortran_specific__nint_8_4 (parm) real (kind=4) , intent (in) :: parm - integer (kind=8) :: specific__nint_8_4 - specific__nint_8_4 = nint (parm) + integer (kind=8) :: _gfortran_specific__nint_8_4 + _gfortran_specific__nint_8_4 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) -elemental function specific__nint_8_8 (parm) +elemental function _gfortran_specific__nint_8_8 (parm) real (kind=8) , intent (in) :: parm - integer (kind=8) :: specific__nint_8_8 - specific__nint_8_8 = nint (parm) + integer (kind=8) :: _gfortran_specific__nint_8_8 + _gfortran_specific__nint_8_8 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) -elemental function specific__nint_8_10 (parm) +elemental function _gfortran_specific__nint_8_10 (parm) real (kind=10) , intent (in) :: parm - integer (kind=8) :: specific__nint_8_10 - specific__nint_8_10 = nint (parm) + integer (kind=8) :: _gfortran_specific__nint_8_10 + _gfortran_specific__nint_8_10 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) -elemental function specific__nint_8_16 (parm) +elemental function _gfortran_specific__nint_8_16 (parm) real (kind=16) , intent (in) :: parm - integer (kind=8) :: specific__nint_8_16 - specific__nint_8_16 = nint (parm) + integer (kind=8) :: _gfortran_specific__nint_8_16 + _gfortran_specific__nint_8_16 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) -elemental function specific__nint_16_4 (parm) +elemental function _gfortran_specific__nint_16_4 (parm) real (kind=4) , intent (in) :: parm - integer (kind=16) :: specific__nint_16_4 - specific__nint_16_4 = nint (parm) + integer (kind=16) :: _gfortran_specific__nint_16_4 + _gfortran_specific__nint_16_4 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) -elemental function specific__nint_16_8 (parm) +elemental function _gfortran_specific__nint_16_8 (parm) real (kind=8) , intent (in) :: parm - integer (kind=16) :: specific__nint_16_8 - specific__nint_16_8 = nint (parm) + integer (kind=16) :: _gfortran_specific__nint_16_8 + _gfortran_specific__nint_16_8 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) -elemental function specific__nint_16_10 (parm) +elemental function _gfortran_specific__nint_16_10 (parm) real (kind=10) , intent (in) :: parm - integer (kind=16) :: specific__nint_16_10 - specific__nint_16_10 = nint (parm) + integer (kind=16) :: _gfortran_specific__nint_16_10 + _gfortran_specific__nint_16_10 = nint (parm) end function #endif #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) -elemental function specific__nint_16_16 (parm) +elemental function _gfortran_specific__nint_16_16 (parm) real (kind=16) , intent (in) :: parm - integer (kind=16) :: specific__nint_16_16 - specific__nint_16_16 = nint (parm) + integer (kind=16) :: _gfortran_specific__nint_16_16 + _gfortran_specific__nint_16_16 = nint (parm) end function #endif #if defined (HAVE_GFC_INTEGER_4) -elemental function specific__char_1_i4 (parm) +elemental function _gfortran_specific__char_1_i4 (parm) integer (kind=4) , intent (in) :: parm - character (kind=1,len=1) :: specific__char_1_i4 - specific__char_1_i4 = char (parm, kind=1) + character (kind=1,len=1) :: _gfortran_specific__char_1_i4 + _gfortran_specific__char_1_i4 = char (parm, kind=1) end function #endif #if defined (HAVE_GFC_INTEGER_8) -elemental function specific__char_1_i8 (parm) +elemental function _gfortran_specific__char_1_i8 (parm) integer (kind=8) , intent (in) :: parm - character (kind=1,len=1) :: specific__char_1_i8 - specific__char_1_i8 = char (parm, kind=1) + character (kind=1,len=1) :: _gfortran_specific__char_1_i8 + _gfortran_specific__char_1_i8 = char (parm, kind=1) end function #endif #if defined (HAVE_GFC_INTEGER_16) -elemental function specific__char_1_i16 (parm) +elemental function _gfortran_specific__char_1_i16 (parm) integer (kind=16) , intent (in) :: parm - character (kind=1,len=1) :: specific__char_1_i16 - specific__char_1_i16 = char (parm, kind=1) + character (kind=1,len=1) :: _gfortran_specific__char_1_i16 + _gfortran_specific__char_1_i16 = char (parm, kind=1) end function #endif #if defined (HAVE_GFC_INTEGER_4) -elemental function specific__len_1_i4 (parm) +elemental function _gfortran_specific__len_1_i4 (parm) character (kind=1,len=*) , intent (in) :: parm - integer (kind=4) :: specific__len_1_i4 - specific__len_1_i4 = len (parm) + integer (kind=4) :: _gfortran_specific__len_1_i4 + _gfortran_specific__len_1_i4 = len (parm) end function #endif #if defined (HAVE_GFC_INTEGER_8) -elemental function specific__len_1_i8 (parm) +elemental function _gfortran_specific__len_1_i8 (parm) character (kind=1,len=*) , intent (in) :: parm - integer (kind=8) :: specific__len_1_i8 - specific__len_1_i8 = len (parm) + integer (kind=8) :: _gfortran_specific__len_1_i8 + _gfortran_specific__len_1_i8 = len (parm) end function #endif #if defined (HAVE_GFC_INTEGER_16) -elemental function specific__len_1_i16 (parm) +elemental function _gfortran_specific__len_1_i16 (parm) character (kind=1,len=*) , intent (in) :: parm - integer (kind=16) :: specific__len_1_i16 - specific__len_1_i16 = len (parm) + integer (kind=16) :: _gfortran_specific__len_1_i16 + _gfortran_specific__len_1_i16 = len (parm) end function #endif #if defined (HAVE_GFC_INTEGER_4) -elemental function specific__index_1_i4 (parm1, parm2) +elemental function _gfortran_specific__index_1_i4 (parm1, parm2) character (kind=1,len=*) , intent (in) :: parm1, parm2 - integer (kind=4) :: specific__index_1_i4 - specific__index_1_i4 = index (parm1, parm2) + integer (kind=4) :: _gfortran_specific__index_1_i4 + _gfortran_specific__index_1_i4 = index (parm1, parm2) end function #endif #if defined (HAVE_GFC_INTEGER_8) -elemental function specific__index_1_i8 (parm1, parm2) +elemental function _gfortran_specific__index_1_i8 (parm1, parm2) character (kind=1,len=*) , intent (in) :: parm1, parm2 - integer (kind=8) :: specific__index_1_i8 - specific__index_1_i8 = index (parm1, parm2) + integer (kind=8) :: _gfortran_specific__index_1_i8 + _gfortran_specific__index_1_i8 = index (parm1, parm2) end function #endif #if defined (HAVE_GFC_INTEGER_16) -elemental function specific__index_1_i16 (parm1, parm2) +elemental function _gfortran_specific__index_1_i16 (parm1, parm2) character (kind=1,len=*) , intent (in) :: parm1, parm2 - integer (kind=16) :: specific__index_1_i16 - specific__index_1_i16 = index (parm1, parm2) + integer (kind=16) :: _gfortran_specific__index_1_i16 + _gfortran_specific__index_1_i16 = index (parm1, parm2) end function #endif diff --git a/libgfortran/intrinsics/dprod_r8.f90 b/libgfortran/intrinsics/dprod_r8.f90 index 30110b079fac..44c63c41d56b 100644 --- a/libgfortran/intrinsics/dprod_r8.f90 +++ b/libgfortran/intrinsics/dprod_r8.f90 @@ -19,9 +19,9 @@ !Boston, MA 02110-1301, USA. -elemental function specific__dprod_r8 (p1, p2) +elemental function _gfortran_specific__dprod_r8 (p1, p2) real (kind=4), intent (in) :: p1, p2 - real (kind=8) :: specific__dprod_r8 + real (kind=8) :: _gfortran_specific__dprod_r8 - specific__dprod_r8 = dprod (p1, p2) + _gfortran_specific__dprod_r8 = dprod (p1, p2) end function diff --git a/libgfortran/intrinsics/f2c_specifics.F90 b/libgfortran/intrinsics/f2c_specifics.F90 index c3f906d6348b..85b539e29121 100644 --- a/libgfortran/intrinsics/f2c_specifics.F90 +++ b/libgfortran/intrinsics/f2c_specifics.F90 @@ -41,7 +41,7 @@ ! one argument functions #define REAL_HEAD(NAME) \ -elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res); +elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (parm) result(res); #define REAL_BODY(NAME) \ REAL, intent (in) :: parm; \ @@ -50,7 +50,7 @@ elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res); end function #define COMPLEX_HEAD(NAME) \ -subroutine f2c_specific__/**/NAME/**/_c4 (res, parm); +subroutine _gfortran_f2c_specific__/**/NAME/**/_c4 (res, parm); #define COMPLEX_BODY(NAME) \ COMPLEX, intent (in) :: parm; \ @@ -59,7 +59,7 @@ subroutine f2c_specific__/**/NAME/**/_c4 (res, parm); end subroutine #define DCOMPLEX_HEAD(NAME) \ -subroutine f2c_specific__/**/NAME/**/_c8 (res, parm); +subroutine _gfortran_f2c_specific__/**/NAME/**/_c8 (res, parm); #define DCOMPLEX_BODY(NAME) \ DOUBLE COMPLEX, intent (in) :: parm; \ @@ -71,7 +71,7 @@ REAL_HEAD(abs) REAL_BODY(abs) ! abs is special in that the result is real -elemental function f2c_specific__abs_c4 (parm) result (res) +elemental function _gfortran_f2c_specific__abs_c4 (parm) result (res) COMPLEX, intent(in) :: parm DOUBLE PRECISION :: res res = abs(parm) @@ -79,16 +79,16 @@ end function ! aimag is special in that the result is real -elemental function f2c_specific__aimag_c4 (parm) +elemental function _gfortran_f2c_specific__aimag_c4 (parm) complex(kind=4), intent(in) :: parm - double precision :: f2c_specific__aimag_c4 - f2c_specific__aimag_c4 = aimag(parm) + double precision :: _gfortran_f2c_specific__aimag_c4 + _gfortran_f2c_specific__aimag_c4 = aimag(parm) end function -elemental function f2c_specific__aimag_c8 (parm) +elemental function _gfortran_f2c_specific__aimag_c8 (parm) complex(kind=8), intent(in) :: parm - double precision :: f2c_specific__aimag_c8 - f2c_specific__aimag_c8 = aimag(parm) + double precision :: _gfortran_f2c_specific__aimag_c8 + _gfortran_f2c_specific__aimag_c8 = aimag(parm) end function @@ -168,7 +168,7 @@ REAL_BODY(anint) ! two argument functions #define REAL2_HEAD(NAME) \ -elemental function f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res); +elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res); #define REAL2_BODY(NAME) \ REAL, intent (in) :: p1, p2; \ @@ -189,12 +189,12 @@ REAL2_HEAD(mod) REAL2_BODY(mod) ! conjg is special-cased because it is not suffixed _c4 but _4 -subroutine f2c_specific__conjg_4 (res, parm) +subroutine _gfortran_f2c_specific__conjg_4 (res, parm) COMPLEX, intent (in) :: parm COMPLEX, intent (out) :: res res = conjg (parm) end subroutine -subroutine f2c_specific__conjg_8 (res, parm) +subroutine _gfortran_f2c_specific__conjg_8 (res, parm) DOUBLE COMPLEX, intent (in) :: parm DOUBLE COMPLEX, intent (out) :: res res = conjg (parm) diff --git a/libgfortran/intrinsics/selected_int_kind.f90 b/libgfortran/intrinsics/selected_int_kind.f90 index 80bc25b00bc4..bcb6759e769a 100644 --- a/libgfortran/intrinsics/selected_int_kind.f90 +++ b/libgfortran/intrinsics/selected_int_kind.f90 @@ -19,10 +19,10 @@ !Boston, MA 02110-1301, USA. ! -function selected_int_kind (r) +function _gfortran_selected_int_kind (r) implicit none integer, intent (in) :: r - integer :: selected_int_kind + integer :: _gfortran_selected_int_kind integer :: i ! Integer kind_range table type :: int_info @@ -34,10 +34,10 @@ function selected_int_kind (r) do i = 1, c if (r <= int_infos (i) % range) then - selected_int_kind = int_infos (i) % kind + _gfortran_selected_int_kind = int_infos (i) % kind return end if end do - selected_int_kind = -1 + _gfortran_selected_int_kind = -1 return end function diff --git a/libgfortran/intrinsics/selected_real_kind.f90 b/libgfortran/intrinsics/selected_real_kind.f90 index 4cc2a0992fec..2ace5c0c4d20 100644 --- a/libgfortran/intrinsics/selected_real_kind.f90 +++ b/libgfortran/intrinsics/selected_real_kind.f90 @@ -19,10 +19,10 @@ !Boston, MA 02110-1301, USA. ! -function selected_real_kind (p, r) +function _gfortran_selected_real_kind (p, r) implicit none integer, optional, intent (in) :: p, r - integer :: selected_real_kind + integer :: _gfortran_selected_real_kind integer :: i, p2, r2 logical :: found_p, found_r ! Real kind_precision_range table @@ -34,7 +34,7 @@ function selected_real_kind (p, r) include "selected_real_kind.inc" - selected_real_kind = 0 + _gfortran_selected_real_kind = 0 p2 = 0 r2 = 0 found_p = .false. @@ -49,13 +49,13 @@ function selected_real_kind (p, r) if (p2 <= real_infos (i) % precision) found_p = .true. if (r2 <= real_infos (i) % range) found_r = .true. if (found_p .and. found_r) then - selected_real_kind = real_infos (i) % kind + _gfortran_selected_real_kind = real_infos (i) % kind return end if end do - if (.not. (found_p)) selected_real_kind = selected_real_kind - 1 - if (.not. (found_r)) selected_real_kind = selected_real_kind - 2 + if (.not. (found_p)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 1 + if (.not. (found_r)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 2 return end function diff --git a/libgfortran/m4/misc_specifics.m4 b/libgfortran/m4/misc_specifics.m4 index dff63d82eeac..3e40bf01784a 100644 --- a/libgfortran/m4/misc_specifics.m4 +++ b/libgfortran/m4/misc_specifics.m4 @@ -22,10 +22,10 @@ divert dnl NINT specifics foreach(`ikind', `(4, 8, 16)', `foreach(`rkind', `(4, 8, 10, 16)', ` `#if defined (HAVE_GFC_REAL_'rkind`) && defined (HAVE_GFC_INTEGER_'ikind`)' -elemental function specific__nint_`'ikind`_'rkind (parm) +elemental function _gfortran_specific__nint_`'ikind`_'rkind (parm) real (kind=rkind) , intent (in) :: parm - integer (kind=ikind) :: specific__nint_`'ikind`_'rkind - specific__nint_`'ikind`_'rkind = nint (parm) + integer (kind=ikind) :: _gfortran_specific__nint_`'ikind`_'rkind + _gfortran_specific__nint_`'ikind`_'rkind = nint (parm) end function #endif ')') @@ -33,10 +33,10 @@ end function dnl CHAR specifics foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` `#if defined (HAVE_GFC_INTEGER_'ikind`)' -elemental function specific__char_`'ckind`_i'ikind (parm) +elemental function _gfortran_specific__char_`'ckind`_i'ikind (parm) integer (kind=ikind) , intent (in) :: parm - character (kind=ckind,len=1) :: specific__char_`'ckind`_i'ikind - specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)' + character (kind=ckind,len=1) :: _gfortran_specific__char_`'ckind`_i'ikind + _gfortran_specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)' end function #endif ')') @@ -44,10 +44,10 @@ end function dnl LEN specifics foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` `#if defined (HAVE_GFC_INTEGER_'ikind`)' -elemental function specific__len_`'ckind`_i'ikind (parm) +elemental function _gfortran_specific__len_`'ckind`_i'ikind (parm) character (kind=ckind,len=*) , intent (in) :: parm - integer (kind=ikind) :: specific__len_`'ckind`_i'ikind - specific__len_`'ckind`_i'ikind` = len (parm)' + integer (kind=ikind) :: _gfortran_specific__len_`'ckind`_i'ikind + _gfortran_specific__len_`'ckind`_i'ikind` = len (parm)' end function #endif ')') @@ -55,10 +55,10 @@ end function dnl INDEX specifics foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', ` `#if defined (HAVE_GFC_INTEGER_'ikind`)' -elemental function specific__index_`'ckind`_i'ikind (parm1, parm2) +elemental function _gfortran_specific__index_`'ckind`_i'ikind (parm1, parm2) character (kind=ckind,len=*) , intent (in) :: parm1, parm2 - integer (kind=ikind) :: specific__index_`'ckind`_i'ikind - specific__index_`'ckind`_i'ikind` = index (parm1, parm2)' + integer (kind=ikind) :: _gfortran_specific__index_`'ckind`_i'ikind + _gfortran_specific__index_`'ckind`_i'ikind` = index (parm1, parm2)' end function #endif ')') diff --git a/libgfortran/m4/specific.m4 b/libgfortran/m4/specific.m4 index c8c91520d604..ebc89839ad48 100644 --- a/libgfortran/m4/specific.m4 +++ b/libgfortran/m4/specific.m4 @@ -7,7 +7,7 @@ define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse( define(atype_name, get_typename(atype_letter,atype_kind))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),ifelse(name,aimag,ifelse(atype_letter,c,r,atype_letter),atype_letter)),atype_kind))dnl -define(function_name,ifelse(name,conjg,`specific__conjg_'atype_kind,`specific__'name`_'atype_code))dnl +define(function_name,ifelse(name,conjg,`_gfortran_specific__conjg_'atype_kind,`_gfortran_specific__'name`_'atype_code))dnl define(type,ifelse(atype_letter,l,LOGICAL,ifelse(atype_letter,i,INTEGER,ifelse(atype_letter,r,REAL,ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl diff --git a/libgfortran/m4/specific2.m4 b/libgfortran/m4/specific2.m4 index fa26f3976982..d05e8db1435a 100644 --- a/libgfortran/m4/specific2.m4 +++ b/libgfortran/m4/specific2.m4 @@ -6,7 +6,7 @@ define(get_typename2, `$1 (kind=$2)')dnl define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl define(atype_name, get_typename(atype_letter,atype_kind))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl -define(function_name,`specific__'name`_'atype_code)dnl +define(function_name,`_gfortran_specific__'name`_'atype_code)dnl define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl -- 2.39.2