2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+ * gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
+ * lang.opt: Add -fallow-leading-underscore.
+ * match.c (gfc_match_name): Allow leading underscore in symbol
+ name if -fallow-leading-underscore is used.
+ * symbol.c (gfc_get_default_type): Add special case for symbol
+ names beginning with an underscore.
+ * trans-decl.c (gfc_get_extern_function_decl,
+ gfc_build_intrinsic_function_decls): Add _gfortran prefix to
+ library symbols selected_int_kind, selected_real_kind and
+ all specifics.
+ * options.c (gfc_init_options, gfc_handle_option): Handle the
+ new -fallow-leading-underscore option.
+
+2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
PR fortran/30446
* options.c (gfc_handle_module_path_options): Path used in -J
option is now added to the module search path.
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;
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
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");
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;
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;
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");
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;
{
/* 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;
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);
+2007-01-20 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ * m4/misc_specifics.m4: Add _gfortran prefix to specific names.
+ * m4/specific2.m4: Likewise.
+ * m4/specific.m4: Likewise.
+ * intrinsics/f2c_specifics.F90: Likewise.
+ * intrinsics/selected_int_kind.f90: Add _gfortran prefix.
+ * intrinsics/selected_real_kind.f90: Likewise.
+ * intrinsics/dprod_r8.f90: Likewise.
+ * Makefile.am: Add -fallow-leading-underscore to the
+ gfor_specific_src files, as well as selected_real_kind.F90
+ and selected_int_kind.F90
+ * Makefile.in: Regenerate.
+ * generated/_sqrt_c8.F90: Regenerate.
+ * generated/_sign_r16.F90: Regenerate.
+ * generated/_log_c16.F90: Regenerate.
+ * generated/_sin_c10.F90: Regenerate.
+ * generated/_tanh_r4.F90: Regenerate.
+ * generated/_tanh_r8.F90: Regenerate.
+ * generated/_log10_r10.F90: Regenerate.
+ * generated/_aimag_c4.F90: Regenerate.
+ * generated/_sign_r4.F90: Regenerate.
+ * generated/_aimag_c8.F90: Regenerate.
+ * generated/_sign_r8.F90: Regenerate.
+ * generated/_mod_i4.F90: Regenerate.
+ * generated/_cos_r16.F90: Regenerate.
+ * generated/_aint_r10.F90: Regenerate.
+ * generated/_mod_i8.F90: Regenerate.
+ * generated/_abs_i16.F90: Regenerate.
+ * generated/_sqrt_c10.F90: Regenerate.
+ * generated/_atan2_r4.F90: Regenerate.
+ * generated/_cos_c4.F90: Regenerate.
+ * generated/_atan_r16.F90: Regenerate.
+ * generated/_tanh_r10.F90: Regenerate.
+ * generated/_atan2_r8.F90: Regenerate.
+ * generated/_cos_c8.F90: Regenerate.
+ * generated/_exp_r4.F90: Regenerate.
+ * generated/_log_r10.F90: Regenerate.
+ * generated/_exp_r8.F90: Regenerate.
+ * generated/_abs_r4.F90: Regenerate.
+ * generated/_abs_r8.F90: Regenerate.
+ * generated/_sin_r16.F90: Regenerate.
+ * generated/_tan_r4.F90: Regenerate.
+ * generated/_tan_r8.F90: Regenerate.
+ * generated/_sign_i4.F90: Regenerate.
+ * generated/_sign_i8.F90: Regenerate.
+ * generated/_exp_c16.F90: Regenerate.
+ * generated/_sqrt_r16.F90: Regenerate.
+ * generated/_conjg_c4.F90: Regenerate.
+ * generated/_conjg_c8.F90: Regenerate.
+ * generated/_dim_r16.F90: Regenerate.
+ * generated/_mod_r10.F90: Regenerate.
+ * generated/_abs_c10.F90: Regenerate.
+ * generated/_conjg_c16.F90: Regenerate.
+ * generated/_tan_r16.F90: Regenerate.
+ * generated/_asinh_r10.F90: Regenerate.
+ * generated/_abs_i4.F90: Regenerate.
+ * generated/_abs_i8.F90: Regenerate.
+ * generated/_acos_r10.F90: Regenerate.
+ * generated/_exp_r10.F90: Regenerate.
+ * generated/_acosh_r16.F90: Regenerate.
+ * generated/_atan2_r16.F90: Regenerate.
+ * generated/_cos_c16.F90: Regenerate.
+ * generated/_mod_i16.F90: Regenerate.
+ * generated/_asin_r4.F90: Regenerate.
+ * generated/_anint_r16.F90: Regenerate.
+ * generated/_asin_r8.F90: Regenerate.
+ * generated/_aimag_c10.F90: Regenerate.
+ * generated/_exp_c4.F90: Regenerate.
+ * generated/_sinh_r10.F90: Regenerate.
+ * generated/_exp_c8.F90: Regenerate.
+ * generated/_log10_r4.F90: Regenerate.
+ * generated/_log10_r8.F90: Regenerate.
+ * generated/_abs_c4.F90: Regenerate.
+ * generated/_abs_r16.F90: Regenerate.
+ * generated/_abs_c8.F90: Regenerate.
+ * generated/_asin_r10.F90: Regenerate.
+ * generated/_sign_r10.F90: Regenerate.
+ * generated/_atanh_r16.F90: Regenerate.
+ * generated/_log_c10.F90: Regenerate.
+ * generated/_cosh_r16.F90: Regenerate.
+ * generated/_sin_c16.F90: Regenerate.
+ * generated/_cos_r10.F90: Regenerate.
+ * generated/_log10_r16.F90: Regenerate.
+ * generated/_aint_r16.F90: Regenerate.
+ * generated/_acos_r4.F90: Regenerate.
+ * generated/_acos_r8.F90: Regenerate.
+ * generated/_sqrt_c16.F90: Regenerate.
+ * generated/_acosh_r4.F90: Regenerate.
+ * generated/_atan_r10.F90: Regenerate.
+ * generated/_acosh_r8.F90: Regenerate.
+ * generated/_sign_i16.F90: Regenerate.
+ * generated/_tanh_r16.F90: Regenerate.
+ * generated/_log_r4.F90: Regenerate.
+ * generated/_log_r8.F90: Regenerate.
+ * generated/_sin_r4.F90: Regenerate.
+ * generated/_sin_r8.F90: Regenerate.
+ * generated/_log_r16.F90: Regenerate.
+ * generated/_sin_r10.F90: Regenerate.
+ * generated/_sqrt_r4.F90: Regenerate.
+ * generated/_exp_c10.F90: Regenerate.
+ * generated/_sqrt_r8.F90: Regenerate.
+ * generated/_asinh_r4.F90: Regenerate.
+ * generated/_sqrt_r10.F90: Regenerate.
+ * generated/_asinh_r8.F90: Regenerate.
+ * generated/_dim_r4.F90: Regenerate.
+ * generated/_dim_r8.F90: Regenerate.
+ * generated/_dim_r10.F90: Regenerate.
+ * generated/_cosh_r4.F90: Regenerate.
+ * generated/_conjg_c10.F90: Regenerate.
+ * generated/_tan_r10.F90: Regenerate.
+ * generated/_cosh_r8.F90: Regenerate.
+ * generated/_mod_r16.F90: Regenerate.
+ * generated/_abs_c16.F90: Regenerate.
+ * generated/_cos_r4.F90: Regenerate.
+ * generated/_asinh_r16.F90: Regenerate.
+ * generated/_cos_r8.F90: Regenerate.
+ * generated/_atanh_r4.F90: Regenerate.
+ * generated/_atanh_r8.F90: Regenerate.
+ * generated/_acos_r16.F90: Regenerate.
+ * generated/_anint_r4.F90: Regenerate.
+ * generated/_acosh_r10.F90: Regenerate.
+ * generated/_anint_r8.F90: Regenerate.
+ * generated/_exp_r16.F90: Regenerate.
+ * generated/_mod_r4.F90: Regenerate.
+ * generated/_cos_c10.F90: Regenerate.
+ * generated/_atan2_r10.F90: Regenerate.
+ * generated/_dim_i16.F90: Regenerate.
+ * generated/_mod_r8.F90: Regenerate.
+ * generated/_anint_r10.F90: Regenerate.
+ * generated/_aint_r4.F90: Regenerate.
+ * generated/_aint_r8.F90: Regenerate.
+ * generated/_dim_i4.F90: Regenerate.
+ * generated/_sinh_r4.F90: Regenerate.
+ * generated/_log_c4.F90: Regenerate.
+ * generated/_dim_i8.F90: Regenerate.
+ * generated/_sinh_r8.F90: Regenerate.
+ * generated/_log_c8.F90: Regenerate.
+ * generated/_sin_c4.F90: Regenerate.
+ * generated/_sin_c8.F90: Regenerate.
+ * generated/misc_specifics.F90: Regenerate.
+ * generated/_abs_r10.F90: Regenerate.
+ * generated/_aimag_c16.F90: Regenerate.
+ * generated/_atan_r4.F90: Regenerate.
+ * generated/_sinh_r16.F90: Regenerate.
+ * generated/_atan_r8.F90: Regenerate.
+ * generated/_atanh_r10.F90: Regenerate.
+ * generated/_cosh_r10.F90: Regenerate.
+ * generated/_sqrt_c4.F90: Regenerate.
+ * generated/_asin_r16.F90: Regenerate.
+
2007-01-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/26893
# 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) \
# 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 $@
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
-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
-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
-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
-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
-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
-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
-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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
-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
-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
-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
-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
-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
-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
-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
-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
-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
-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
-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
-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
-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
-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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
#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
!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
! 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; \
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; \
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; \
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)
! 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
! 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; \
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)
!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
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
!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
include "selected_real_kind.inc"
- selected_real_kind = 0
+ _gfortran_selected_real_kind = 0
p2 = 0
r2 = 0
found_p = .false.
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
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
')')
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
')')
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
')')
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
')')
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
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
OSDN Git Service
