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
This commit is contained in:
Francois-Xavier Coudert
François-Xavier Coudert
parent
b153d3e1ca
commit
e6472bcede
|
|
@ -1,3 +1,18 @@
|
|||
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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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");
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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");
|
||||
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -1,3 +1,154 @@
|
|||
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
|
||||
|
|
|
|||
|
|
@ -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) \
|
||||
|
|
|
|||
|
|
@ -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 $@
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue