gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.

author Francois-Xavier Coudert <coudert@clipper.ens.fr>

Sat, 20 Jan 2007 18:33:20 +0000 (19:33 +0100)

committer François-Xavier Coudert <fxcoudert@gcc.gnu.org>

Sat, 20 Jan 2007 18:33:20 +0000 (18:33 +0000)
author Francois-Xavier Coudert <coudert@clipper.ens.fr>
Sat, 20 Jan 2007 18:33:20 +0000 (19:33 +0100)
committer François-Xavier Coudert <fxcoudert@gcc.gnu.org>
Sat, 20 Jan 2007 18:33:20 +0000 (18:33 +0000)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog

index 99a39b23a2a05a5801e7c06b4098e64ee430b150..3e16d4c8b2a9a24c4a20506e0314f9f14f2bed2e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h

index 64739fbd2764a3c7251ed222091b7f8985a67798..05b7ebc4243ba59e77b00fa8ec1c95fcc69dbfe3 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -1656,6 +1656,7 @@ typedef struct
    int flag_f2c;
    int flag_automatic;
    int flag_backslash;
+  int flag_allow_leading_underscore;
    int flag_dump_core;
    int flag_external_blas;
    int blas_matmul_limit;
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt

index 2991f7f7bda81ddea81fa6ab626d2cdefe31bd46..7d413ffd3519913d072d5ae7c7a960b76a87ecef 100644 (file)
--- a/gcc/fortran/lang.opt
+++ b/gcc/fortran/lang.opt
@@ -81,6 +81,10 @@ fall-intrinsics
  Fortran RejectNegative
  All intrinsics procedures are available regardless of selected standard
  
+fallow-leading-underscore
+Fortran Undocumented
+; For internal use only: allow the first character of symbol names to be an underscore
+
  fautomatic
  Fortran
  Do not treat local variables and COMMON blocks as if they were named in SAVE statements
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c

index e3d37d25c7e7db6297501fe0727cfc90f9f345fe..0fa1f634204a97c1a288fb953652f5b3886d0af3 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -392,7 +392,7 @@ gfc_match_name (char *buffer)
    gfc_gobble_whitespace ();
  
    c = gfc_next_char ();
-  if (!ISALPHA (c))
+  if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore)))
      {
        if (gfc_error_flag_test() == 0)
         gfc_error ("Invalid character in name at %C");
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c

index aa1a9404cc2331f5452de0ef1822b0e1ed50533e..8ead48f5c8ba0f2e1ff75f58ce601fb2992c9193 100644 (file)
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -84,6 +84,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
    gfc_option.flag_preprocessed = 0;
    gfc_option.flag_automatic = 1;
    gfc_option.flag_backslash = 1;
+  gfc_option.flag_allow_leading_underscore = 0;
    gfc_option.flag_dump_core = 0;
    gfc_option.flag_external_blas = 0;
    gfc_option.blas_matmul_limit = 30;
@@ -450,6 +451,10 @@ gfc_handle_option (size_t scode, const char *arg, int value)
        gfc_option.flag_automatic = value;
        break;
  
+    case OPT_fallow_leading_underscore:
+      gfc_option.flag_allow_leading_underscore = value;
+      break;
+      
      case OPT_fbackslash:
        gfc_option.flag_backslash = value;
        break;
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c

index 85aff8674a4ba37b9f3eed7d43640c9d771b19c4..c130dee6e71dee473e989393c0f2db885536c933 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -202,6 +202,12 @@ gfc_get_default_type (gfc_symbol * sym, gfc_namespace * ns)
    char letter;
  
    letter = sym->name[0];
+
+  if (gfc_option.flag_allow_leading_underscore && letter == '_')
+    gfc_internal_error ("Option -fallow_leading_underscore is for use only by "
+                       "gfortran developers, and should not be used for "
+                       "implicitly typed variables");
+
    if (letter < 'a' || letter > 'z')
      gfc_internal_error ("gfc_get_default_type(): Bad symbol");
  
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c

index 000772c2090785578c8db1cdbb4a474fef79e577..3028c8fa422dda4af0e41eb602f776e8349205f3 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1060,7 +1060,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
    gfc_expr e;
    gfc_intrinsic_sym *isym;
    gfc_expr argexpr;
-  char s[GFC_MAX_SYMBOL_LEN + 13]; /* "f2c_specific" and '\0'.  */
+  char s[GFC_MAX_SYMBOL_LEN + 23]; /* "_gfortran_f2c_specific" and '\0'.  */
    tree name;
    tree mangled_name;
  
@@ -1108,10 +1108,10 @@ gfc_get_extern_function_decl (gfc_symbol * sym)
         {
           /* Specific which needs a different implementation if f2c
              calling conventions are used.  */
-         sprintf (s, "f2c_specific%s", e.value.function.name);
+         sprintf (s, "_gfortran_f2c_specific%s", e.value.function.name);
         }
        else
-       sprintf (s, "specific%s", e.value.function.name);
+       sprintf (s, "_gfortran_specific%s", e.value.function.name);
  
        name = get_identifier (s);
        mangled_name = name;
@@ -2082,13 +2082,15 @@ gfc_build_intrinsic_function_decls (void)
                                      gfc_charlen_type_node, pchar_type_node);
  
    gfor_fndecl_si_kind =
-    gfc_build_library_function_decl (get_identifier ("selected_int_kind"),
+    gfc_build_library_function_decl (get_identifier
+                                       (PREFIX("selected_int_kind")),
                                       gfc_int4_type_node,
                                       1,
                                       pvoid_type_node);
  
    gfor_fndecl_sr_kind =
-    gfc_build_library_function_decl (get_identifier ("selected_real_kind"),
+    gfc_build_library_function_decl (get_identifier 
+                                       (PREFIX("selected_real_kind")),
                                       gfc_int4_type_node,
                                       2, pvoid_type_node,
                                       pvoid_type_node);
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog

index bc303f30cd1d761b1bc46539b8c9d02163c36221..a1387508a42d8761b2044b2498bee07452dc78de 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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
diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am

index c1cb3ac19dcd3826668ebc9d1c9f08243298f9b7..65cc004f60d1a5f59b2939e461834ee37fd89ed0 100644 (file)
--- a/libgfortran/Makefile.am
+++ b/libgfortran/Makefile.am
@@ -597,6 +597,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
  # Logical matmul doesn't vectorize.
  $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops
  
+# Add the -fallow-leading-underscore option when needed
+$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore
+selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore
+
  BUILT_SOURCES=$(gfor_built_src) $(gfor_built_specific_src) \
      $(gfor_built_specific2_src) $(gfor_misc_specifics)
  libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \
diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in

index d8ca09d75df40ca6cd87e6db0d5a78eda203689e..acc4e855e8e74b7a1cbe24b15d58a5ea314c63be 100644 (file)
--- a/libgfortran/Makefile.in
+++ b/libgfortran/Makefile.in
@@ -4518,6 +4518,10 @@ $(patsubst %.c,%.lo,$(notdir $(i_matmul_c))): AM_CFLAGS += -ftree-vectorize -fun
  # Logical matmul doesn't vectorize.
  $(patsubst %.c,%.lo,$(notdir $(i_matmull_c))): AM_CFLAGS += -funroll-loops
  
+# Add the -fallow-leading-underscore option when needed
+$(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM_FCFLAGS += -fallow-leading-underscore
+selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore
+
  kinds.h: $(srcdir)/mk-kinds-h.sh
         $(SHELL) $(srcdir)/mk-kinds-h.sh '$(FCCOMPILE)' > $@ || rm $@
  
diff --git a/libgfortran/generated/_abs_c10.F90 b/libgfortran/generated/_abs_c10.F90

index 33a58953b626be6267daa3861433d70e5aaaa414..791cd5bedf6b6aacf85ff96d950c111b854df455 100644 (file)
--- a/libgfortran/generated/_abs_c10.F90
+++ b/libgfortran/generated/_abs_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CABSL
  
-elemental function specific__abs_c10 (parm)
+elemental function _gfortran_specific__abs_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__abs_c10
+   real (kind=10) :: _gfortran_specific__abs_c10
  
-   specific__abs_c10 = abs (parm)
+   _gfortran_specific__abs_c10 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_c16.F90 b/libgfortran/generated/_abs_c16.F90

index 021546d3b358c995b690a37f093b9b70bedacffd..ee94cb00c4e15c9553c5faa691cdae27ab598750 100644 (file)
--- a/libgfortran/generated/_abs_c16.F90
+++ b/libgfortran/generated/_abs_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CABSL
  
-elemental function specific__abs_c16 (parm)
+elemental function _gfortran_specific__abs_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__abs_c16
+   real (kind=16) :: _gfortran_specific__abs_c16
  
-   specific__abs_c16 = abs (parm)
+   _gfortran_specific__abs_c16 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_c4.F90 b/libgfortran/generated/_abs_c4.F90

index 6def6b1ae61c5d66ac73dce41265fdbeae530dbc..bc25d6e4a239ffe694cf56703edfe3c036944b2c 100644 (file)
--- a/libgfortran/generated/_abs_c4.F90
+++ b/libgfortran/generated/_abs_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CABSF
  
-elemental function specific__abs_c4 (parm)
+elemental function _gfortran_specific__abs_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__abs_c4
+   real (kind=4) :: _gfortran_specific__abs_c4
  
-   specific__abs_c4 = abs (parm)
+   _gfortran_specific__abs_c4 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_c8.F90 b/libgfortran/generated/_abs_c8.F90

index bd549a5865d4d78c42b78ae967c5b7e96d049a9a..4648dd1236946824fe0c53d8a72f50f78caf4ef2 100644 (file)
--- a/libgfortran/generated/_abs_c8.F90
+++ b/libgfortran/generated/_abs_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CABS
  
-elemental function specific__abs_c8 (parm)
+elemental function _gfortran_specific__abs_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__abs_c8
+   real (kind=8) :: _gfortran_specific__abs_c8
  
-   specific__abs_c8 = abs (parm)
+   _gfortran_specific__abs_c8 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_i16.F90 b/libgfortran/generated/_abs_i16.F90

index afbb67f480eaf12341e125c795b5a15365d892b0..72240c24fdffac8db88c5dca9c3a438f0d39eece 100644 (file)
--- a/libgfortran/generated/_abs_i16.F90
+++ b/libgfortran/generated/_abs_i16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_INTEGER_16)
  
  
-elemental function specific__abs_i16 (parm)
+elemental function _gfortran_specific__abs_i16 (parm)
     integer (kind=16), intent (in) :: parm
-   integer (kind=16) :: specific__abs_i16
+   integer (kind=16) :: _gfortran_specific__abs_i16
  
-   specific__abs_i16 = abs (parm)
+   _gfortran_specific__abs_i16 = abs (parm)
  end function
  
  
diff --git a/libgfortran/generated/_abs_i4.F90 b/libgfortran/generated/_abs_i4.F90

index 4037d3473aeb349dbf239a4453d14ac73f4dd28a..5f3a1e85d8f4eff64a42321a47214b8c6e9fcd12 100644 (file)
--- a/libgfortran/generated/_abs_i4.F90
+++ b/libgfortran/generated/_abs_i4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_INTEGER_4)
  
  
-elemental function specific__abs_i4 (parm)
+elemental function _gfortran_specific__abs_i4 (parm)
     integer (kind=4), intent (in) :: parm
-   integer (kind=4) :: specific__abs_i4
+   integer (kind=4) :: _gfortran_specific__abs_i4
  
-   specific__abs_i4 = abs (parm)
+   _gfortran_specific__abs_i4 = abs (parm)
  end function
  
  
diff --git a/libgfortran/generated/_abs_i8.F90 b/libgfortran/generated/_abs_i8.F90

index 1f2e4244cf984a0c83fe9e21564d43355ccb1360..87f987092b12c7efee09b51f1e9de5b32eefe988 100644 (file)
--- a/libgfortran/generated/_abs_i8.F90
+++ b/libgfortran/generated/_abs_i8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_INTEGER_8)
  
  
-elemental function specific__abs_i8 (parm)
+elemental function _gfortran_specific__abs_i8 (parm)
     integer (kind=8), intent (in) :: parm
-   integer (kind=8) :: specific__abs_i8
+   integer (kind=8) :: _gfortran_specific__abs_i8
  
-   specific__abs_i8 = abs (parm)
+   _gfortran_specific__abs_i8 = abs (parm)
  end function
  
  
diff --git a/libgfortran/generated/_abs_r10.F90 b/libgfortran/generated/_abs_r10.F90

index 4d76a1eafa9faae5763eab383a71c0720159b35e..4b070d3a99d20f303b8ca9a864d825d1d5d0879f 100644 (file)
--- a/libgfortran/generated/_abs_r10.F90
+++ b/libgfortran/generated/_abs_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_FABSL
  
-elemental function specific__abs_r10 (parm)
+elemental function _gfortran_specific__abs_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__abs_r10
+   real (kind=10) :: _gfortran_specific__abs_r10
  
-   specific__abs_r10 = abs (parm)
+   _gfortran_specific__abs_r10 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_r16.F90 b/libgfortran/generated/_abs_r16.F90

index 3c7d8a74f3107e6bbc58b096b6b143cde63d5867..10edfba79cfda0279549fa0b323a1b5575e9fd5e 100644 (file)
--- a/libgfortran/generated/_abs_r16.F90
+++ b/libgfortran/generated/_abs_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_FABSL
  
-elemental function specific__abs_r16 (parm)
+elemental function _gfortran_specific__abs_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__abs_r16
+   real (kind=16) :: _gfortran_specific__abs_r16
  
-   specific__abs_r16 = abs (parm)
+   _gfortran_specific__abs_r16 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_r4.F90 b/libgfortran/generated/_abs_r4.F90

index 31ef426f2acc4fc2a98c24f02482e819d6d36a63..02ebd43fd0e49d4c077454b84fd7691d8b5e8d24 100644 (file)
--- a/libgfortran/generated/_abs_r4.F90
+++ b/libgfortran/generated/_abs_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_FABSF
  
-elemental function specific__abs_r4 (parm)
+elemental function _gfortran_specific__abs_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__abs_r4
+   real (kind=4) :: _gfortran_specific__abs_r4
  
-   specific__abs_r4 = abs (parm)
+   _gfortran_specific__abs_r4 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_abs_r8.F90 b/libgfortran/generated/_abs_r8.F90

index c0b4ce1febe42680578c0a32e971fd8a83a325e3..0d7b62057fcf30eba5c9137f0c0a2c0d6142f4d7 100644 (file)
--- a/libgfortran/generated/_abs_r8.F90
+++ b/libgfortran/generated/_abs_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_FABS
  
-elemental function specific__abs_r8 (parm)
+elemental function _gfortran_specific__abs_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__abs_r8
+   real (kind=8) :: _gfortran_specific__abs_r8
  
-   specific__abs_r8 = abs (parm)
+   _gfortran_specific__abs_r8 = abs (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acos_r10.F90 b/libgfortran/generated/_acos_r10.F90

index d7be7c8940e34d8817288483f5733eb1a0fe6845..4225572fa3032f23dea31c10006a016817363d56 100644 (file)
--- a/libgfortran/generated/_acos_r10.F90
+++ b/libgfortran/generated/_acos_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ACOSL
  
-elemental function specific__acos_r10 (parm)
+elemental function _gfortran_specific__acos_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__acos_r10
+   real (kind=10) :: _gfortran_specific__acos_r10
  
-   specific__acos_r10 = acos (parm)
+   _gfortran_specific__acos_r10 = acos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acos_r16.F90 b/libgfortran/generated/_acos_r16.F90

index f0c6dde0863d9a6c4ef2cf16fab596ae4b3e0784..90525beef355cb5a382523633d6a733721dc1702 100644 (file)
--- a/libgfortran/generated/_acos_r16.F90
+++ b/libgfortran/generated/_acos_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ACOSL
  
-elemental function specific__acos_r16 (parm)
+elemental function _gfortran_specific__acos_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__acos_r16
+   real (kind=16) :: _gfortran_specific__acos_r16
  
-   specific__acos_r16 = acos (parm)
+   _gfortran_specific__acos_r16 = acos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acos_r4.F90 b/libgfortran/generated/_acos_r4.F90

index 9e1b97b0e6a0434cd26696a9e30335cdf17d0071..16478e4872f276be339cc420cf9d11ecc6fc3eea 100644 (file)
--- a/libgfortran/generated/_acos_r4.F90
+++ b/libgfortran/generated/_acos_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ACOSF
  
-elemental function specific__acos_r4 (parm)
+elemental function _gfortran_specific__acos_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__acos_r4
+   real (kind=4) :: _gfortran_specific__acos_r4
  
-   specific__acos_r4 = acos (parm)
+   _gfortran_specific__acos_r4 = acos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acos_r8.F90 b/libgfortran/generated/_acos_r8.F90

index 3bded77850329f5e588ebddd93d9eae57d0fb355..5866b81121cf4f8b9e45d6f0b90ea3ab4919fa3d 100644 (file)
--- a/libgfortran/generated/_acos_r8.F90
+++ b/libgfortran/generated/_acos_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ACOS
  
-elemental function specific__acos_r8 (parm)
+elemental function _gfortran_specific__acos_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__acos_r8
+   real (kind=8) :: _gfortran_specific__acos_r8
  
-   specific__acos_r8 = acos (parm)
+   _gfortran_specific__acos_r8 = acos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acosh_r10.F90 b/libgfortran/generated/_acosh_r10.F90

index 07bc3327c56d7bbf9d6b47933c7f3313f3803d80..2f7c93d9952da61561841c66f0d1c6c0399f9b44 100644 (file)
--- a/libgfortran/generated/_acosh_r10.F90
+++ b/libgfortran/generated/_acosh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ACOSHL
  
-elemental function specific__acosh_r10 (parm)
+elemental function _gfortran_specific__acosh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__acosh_r10
+   real (kind=10) :: _gfortran_specific__acosh_r10
  
-   specific__acosh_r10 = acosh (parm)
+   _gfortran_specific__acosh_r10 = acosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acosh_r16.F90 b/libgfortran/generated/_acosh_r16.F90

index 295a366f61cc5a946e69d42f2933a4c46852a46f..010a42ecad08e9c4722291fc1975848ac50a61f8 100644 (file)
--- a/libgfortran/generated/_acosh_r16.F90
+++ b/libgfortran/generated/_acosh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ACOSHL
  
-elemental function specific__acosh_r16 (parm)
+elemental function _gfortran_specific__acosh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__acosh_r16
+   real (kind=16) :: _gfortran_specific__acosh_r16
  
-   specific__acosh_r16 = acosh (parm)
+   _gfortran_specific__acosh_r16 = acosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acosh_r4.F90 b/libgfortran/generated/_acosh_r4.F90

index 717ce409e12de936b3d5362590ec1107bc1cecdb..f6c24839bc1d9284a6284e27daa0dc536bd11e7d 100644 (file)
--- a/libgfortran/generated/_acosh_r4.F90
+++ b/libgfortran/generated/_acosh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ACOSHF
  
-elemental function specific__acosh_r4 (parm)
+elemental function _gfortran_specific__acosh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__acosh_r4
+   real (kind=4) :: _gfortran_specific__acosh_r4
  
-   specific__acosh_r4 = acosh (parm)
+   _gfortran_specific__acosh_r4 = acosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_acosh_r8.F90 b/libgfortran/generated/_acosh_r8.F90

index d03c73ba246cf2b4704feffe91fff709c2460941..e785507bb84465b9b473558419fbb6dfe75adb31 100644 (file)
--- a/libgfortran/generated/_acosh_r8.F90
+++ b/libgfortran/generated/_acosh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ACOSH
  
-elemental function specific__acosh_r8 (parm)
+elemental function _gfortran_specific__acosh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__acosh_r8
+   real (kind=8) :: _gfortran_specific__acosh_r8
  
-   specific__acosh_r8 = acosh (parm)
+   _gfortran_specific__acosh_r8 = acosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_aimag_c10.F90 b/libgfortran/generated/_aimag_c10.F90

index d6a6f0b863150580e19f5a42f08416c64102c16a..a406cff30a17ba6a980cf8d943feefec8c87c8ea 100644 (file)
--- a/libgfortran/generated/_aimag_c10.F90
+++ b/libgfortran/generated/_aimag_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  
  
-elemental function specific__aimag_c10 (parm)
+elemental function _gfortran_specific__aimag_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__aimag_c10
+   real (kind=10) :: _gfortran_specific__aimag_c10
  
-   specific__aimag_c10 = aimag (parm)
+   _gfortran_specific__aimag_c10 = aimag (parm)
  end function
  
  
diff --git a/libgfortran/generated/_aimag_c16.F90 b/libgfortran/generated/_aimag_c16.F90

index 717f820eb6bb8286b7f34ab17165cdd27ac4eac6..32858cfb4f1b32c4603b9ab9bddad7e9c964e4a4 100644 (file)
--- a/libgfortran/generated/_aimag_c16.F90
+++ b/libgfortran/generated/_aimag_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  
  
-elemental function specific__aimag_c16 (parm)
+elemental function _gfortran_specific__aimag_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__aimag_c16
+   real (kind=16) :: _gfortran_specific__aimag_c16
  
-   specific__aimag_c16 = aimag (parm)
+   _gfortran_specific__aimag_c16 = aimag (parm)
  end function
  
  
diff --git a/libgfortran/generated/_aimag_c4.F90 b/libgfortran/generated/_aimag_c4.F90

index 241e7b97c151149faf4356d97ad1ec4186f6942e..118a742de388f8095ed1ce9ba2459318ff6204aa 100644 (file)
--- a/libgfortran/generated/_aimag_c4.F90
+++ b/libgfortran/generated/_aimag_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  
  
-elemental function specific__aimag_c4 (parm)
+elemental function _gfortran_specific__aimag_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__aimag_c4
+   real (kind=4) :: _gfortran_specific__aimag_c4
  
-   specific__aimag_c4 = aimag (parm)
+   _gfortran_specific__aimag_c4 = aimag (parm)
  end function
  
  
diff --git a/libgfortran/generated/_aimag_c8.F90 b/libgfortran/generated/_aimag_c8.F90

index 76ad7e982cac5da5e3cd1549623cab63c7c8a001..112c6882d8ecb1cc93d4b3bc2c0476671f46fb13 100644 (file)
--- a/libgfortran/generated/_aimag_c8.F90
+++ b/libgfortran/generated/_aimag_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  
  
-elemental function specific__aimag_c8 (parm)
+elemental function _gfortran_specific__aimag_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__aimag_c8
+   real (kind=8) :: _gfortran_specific__aimag_c8
  
-   specific__aimag_c8 = aimag (parm)
+   _gfortran_specific__aimag_c8 = aimag (parm)
  end function
  
  
diff --git a/libgfortran/generated/_aint_r10.F90 b/libgfortran/generated/_aint_r10.F90

index 2448baa53e850569ac2200a36c070f474d501448..2853c0c6718ba2f534d05275e67f46243e9b5737 100644 (file)
--- a/libgfortran/generated/_aint_r10.F90
+++ b/libgfortran/generated/_aint_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_TRUNCL
  
-elemental function specific__aint_r10 (parm)
+elemental function _gfortran_specific__aint_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__aint_r10
+   real (kind=10) :: _gfortran_specific__aint_r10
  
-   specific__aint_r10 = aint (parm)
+   _gfortran_specific__aint_r10 = aint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_aint_r16.F90 b/libgfortran/generated/_aint_r16.F90

index 9903ad4af19e69e7c20a169e658426cab406cb49..5208c4e6a8a26cf6ff2b50cbc8d061bb25d64f20 100644 (file)
--- a/libgfortran/generated/_aint_r16.F90
+++ b/libgfortran/generated/_aint_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_TRUNCL
  
-elemental function specific__aint_r16 (parm)
+elemental function _gfortran_specific__aint_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__aint_r16
+   real (kind=16) :: _gfortran_specific__aint_r16
  
-   specific__aint_r16 = aint (parm)
+   _gfortran_specific__aint_r16 = aint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_aint_r4.F90 b/libgfortran/generated/_aint_r4.F90

index 4fb714588340dd1772da97938361fedc7c875165..8318dd979da296daada5dbea982b90f305dc907b 100644 (file)
--- a/libgfortran/generated/_aint_r4.F90
+++ b/libgfortran/generated/_aint_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_TRUNCF
  
-elemental function specific__aint_r4 (parm)
+elemental function _gfortran_specific__aint_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__aint_r4
+   real (kind=4) :: _gfortran_specific__aint_r4
  
-   specific__aint_r4 = aint (parm)
+   _gfortran_specific__aint_r4 = aint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_aint_r8.F90 b/libgfortran/generated/_aint_r8.F90

index f860c7ae38260718f324e080b40aabc05d891646..9f2d712f179c08eb5b24d5bbe78895d669dc02c8 100644 (file)
--- a/libgfortran/generated/_aint_r8.F90
+++ b/libgfortran/generated/_aint_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_TRUNC
  
-elemental function specific__aint_r8 (parm)
+elemental function _gfortran_specific__aint_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__aint_r8
+   real (kind=8) :: _gfortran_specific__aint_r8
  
-   specific__aint_r8 = aint (parm)
+   _gfortran_specific__aint_r8 = aint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_anint_r10.F90 b/libgfortran/generated/_anint_r10.F90

index 1652417943f03e5db69c4bdb8ec77db637a0072a..29d11b31fbadf1ccf7f4c45643dce2620ebd9013 100644 (file)
--- a/libgfortran/generated/_anint_r10.F90
+++ b/libgfortran/generated/_anint_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ROUNDL
  
-elemental function specific__anint_r10 (parm)
+elemental function _gfortran_specific__anint_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__anint_r10
+   real (kind=10) :: _gfortran_specific__anint_r10
  
-   specific__anint_r10 = anint (parm)
+   _gfortran_specific__anint_r10 = anint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_anint_r16.F90 b/libgfortran/generated/_anint_r16.F90

index 48e1dffb1c3a089b17bff70bed85fd67401b521d..bc74dcca91b2797a4d7acdb61018971323e8ee94 100644 (file)
--- a/libgfortran/generated/_anint_r16.F90
+++ b/libgfortran/generated/_anint_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ROUNDL
  
-elemental function specific__anint_r16 (parm)
+elemental function _gfortran_specific__anint_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__anint_r16
+   real (kind=16) :: _gfortran_specific__anint_r16
  
-   specific__anint_r16 = anint (parm)
+   _gfortran_specific__anint_r16 = anint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_anint_r4.F90 b/libgfortran/generated/_anint_r4.F90

index c1c955ce5e89235f6f61c97b1228248b1abd6c29..f808b5dc9b468d9bf844ff39a843334fdbc2d1c2 100644 (file)
--- a/libgfortran/generated/_anint_r4.F90
+++ b/libgfortran/generated/_anint_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ROUNDF
  
-elemental function specific__anint_r4 (parm)
+elemental function _gfortran_specific__anint_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__anint_r4
+   real (kind=4) :: _gfortran_specific__anint_r4
  
-   specific__anint_r4 = anint (parm)
+   _gfortran_specific__anint_r4 = anint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_anint_r8.F90 b/libgfortran/generated/_anint_r8.F90

index 6c72678944de1c8bd6b12cd927abf287127332a1..33495dcde9f63de219117dba7eb3f1385210f266 100644 (file)
--- a/libgfortran/generated/_anint_r8.F90
+++ b/libgfortran/generated/_anint_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ROUND
  
-elemental function specific__anint_r8 (parm)
+elemental function _gfortran_specific__anint_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__anint_r8
+   real (kind=8) :: _gfortran_specific__anint_r8
  
-   specific__anint_r8 = anint (parm)
+   _gfortran_specific__anint_r8 = anint (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asin_r10.F90 b/libgfortran/generated/_asin_r10.F90

index 80939fa3a18ac894b80433b86eff7ae7919fedf5..cccc6c3465e1e02e59159d6ff5869d8f36181c1f 100644 (file)
--- a/libgfortran/generated/_asin_r10.F90
+++ b/libgfortran/generated/_asin_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ASINL
  
-elemental function specific__asin_r10 (parm)
+elemental function _gfortran_specific__asin_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__asin_r10
+   real (kind=10) :: _gfortran_specific__asin_r10
  
-   specific__asin_r10 = asin (parm)
+   _gfortran_specific__asin_r10 = asin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asin_r16.F90 b/libgfortran/generated/_asin_r16.F90

index 76e37b6f6a5fedd8020f22b9d73ce4ac2d1ac6d1..6b6f26da6cb265dcf9f6ce149f2e3e80616086ee 100644 (file)
--- a/libgfortran/generated/_asin_r16.F90
+++ b/libgfortran/generated/_asin_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ASINL
  
-elemental function specific__asin_r16 (parm)
+elemental function _gfortran_specific__asin_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__asin_r16
+   real (kind=16) :: _gfortran_specific__asin_r16
  
-   specific__asin_r16 = asin (parm)
+   _gfortran_specific__asin_r16 = asin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asin_r4.F90 b/libgfortran/generated/_asin_r4.F90

index cd77113879fef69d813e1cf59c09f0ef6b8d30ac..da9c5e234797b61a41657f92a6acea600d09b8a5 100644 (file)
--- a/libgfortran/generated/_asin_r4.F90
+++ b/libgfortran/generated/_asin_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ASINF
  
-elemental function specific__asin_r4 (parm)
+elemental function _gfortran_specific__asin_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__asin_r4
+   real (kind=4) :: _gfortran_specific__asin_r4
  
-   specific__asin_r4 = asin (parm)
+   _gfortran_specific__asin_r4 = asin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asin_r8.F90 b/libgfortran/generated/_asin_r8.F90

index c31f2bc8db3d28ed8ddf8c2899e092b634702437..62910447a0fb643580644976262ae15244c4970f 100644 (file)
--- a/libgfortran/generated/_asin_r8.F90
+++ b/libgfortran/generated/_asin_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ASIN
  
-elemental function specific__asin_r8 (parm)
+elemental function _gfortran_specific__asin_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__asin_r8
+   real (kind=8) :: _gfortran_specific__asin_r8
  
-   specific__asin_r8 = asin (parm)
+   _gfortran_specific__asin_r8 = asin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asinh_r10.F90 b/libgfortran/generated/_asinh_r10.F90

index c6a791b661cdc2ceaf6e6a40af58ff0872eb57a6..24cf6b658bdb51de21b30c1616d68c4ed6893e52 100644 (file)
--- a/libgfortran/generated/_asinh_r10.F90
+++ b/libgfortran/generated/_asinh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ASINHL
  
-elemental function specific__asinh_r10 (parm)
+elemental function _gfortran_specific__asinh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__asinh_r10
+   real (kind=10) :: _gfortran_specific__asinh_r10
  
-   specific__asinh_r10 = asinh (parm)
+   _gfortran_specific__asinh_r10 = asinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asinh_r16.F90 b/libgfortran/generated/_asinh_r16.F90

index 3b2a28b8ab321b168cd234853cf0633d4cc3c057..09a1f49c5aa3c1f4482319f2b471ac6554b9e2a0 100644 (file)
--- a/libgfortran/generated/_asinh_r16.F90
+++ b/libgfortran/generated/_asinh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ASINHL
  
-elemental function specific__asinh_r16 (parm)
+elemental function _gfortran_specific__asinh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__asinh_r16
+   real (kind=16) :: _gfortran_specific__asinh_r16
  
-   specific__asinh_r16 = asinh (parm)
+   _gfortran_specific__asinh_r16 = asinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asinh_r4.F90 b/libgfortran/generated/_asinh_r4.F90

index de47515bf4642c2e8839468f191c4e25980873eb..f821bc75a9d75c08c4143be07c05f588a5a201c8 100644 (file)
--- a/libgfortran/generated/_asinh_r4.F90
+++ b/libgfortran/generated/_asinh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ASINHF
  
-elemental function specific__asinh_r4 (parm)
+elemental function _gfortran_specific__asinh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__asinh_r4
+   real (kind=4) :: _gfortran_specific__asinh_r4
  
-   specific__asinh_r4 = asinh (parm)
+   _gfortran_specific__asinh_r4 = asinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_asinh_r8.F90 b/libgfortran/generated/_asinh_r8.F90

index 0a6d0bdda4a5b1cdb1360b7b66ef9110d73a633a..ab3f70af0823da6761e4993f80d4bdcab9698174 100644 (file)
--- a/libgfortran/generated/_asinh_r8.F90
+++ b/libgfortran/generated/_asinh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ASINH
  
-elemental function specific__asinh_r8 (parm)
+elemental function _gfortran_specific__asinh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__asinh_r8
+   real (kind=8) :: _gfortran_specific__asinh_r8
  
-   specific__asinh_r8 = asinh (parm)
+   _gfortran_specific__asinh_r8 = asinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan2_r10.F90 b/libgfortran/generated/_atan2_r10.F90

index cc9a170bd2d6e67ce3d2d7b6016123b05a32a292..d7ea3920f23fce739c1534c6efe907473f40fc4f 100644 (file)
--- a/libgfortran/generated/_atan2_r10.F90
+++ b/libgfortran/generated/_atan2_r10.F90
@@ -39,11 +39,11 @@
  
  #ifdef HAVE_ATAN2L
  
-elemental function specific__atan2_r10 (p1, p2)
+elemental function _gfortran_specific__atan2_r10 (p1, p2)
     real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__atan2_r10
+   real (kind=10) :: _gfortran_specific__atan2_r10
  
-   specific__atan2_r10 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r10 = atan2 (p1, p2)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan2_r16.F90 b/libgfortran/generated/_atan2_r16.F90

index f56aabef8e3804156f00e4d2cb9a3afe77c4254a..b2a6d60c0aad09c54d3ecfe378c00c8952ab64ee 100644 (file)
--- a/libgfortran/generated/_atan2_r16.F90
+++ b/libgfortran/generated/_atan2_r16.F90
@@ -39,11 +39,11 @@
  
  #ifdef HAVE_ATAN2L
  
-elemental function specific__atan2_r16 (p1, p2)
+elemental function _gfortran_specific__atan2_r16 (p1, p2)
     real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__atan2_r16
+   real (kind=16) :: _gfortran_specific__atan2_r16
  
-   specific__atan2_r16 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r16 = atan2 (p1, p2)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan2_r4.F90 b/libgfortran/generated/_atan2_r4.F90

index 52ecf7917bab06fc1561e8367507e0891a735176..bfeb726ff1c7bc2b251b6f062808ff026a39f0c1 100644 (file)
--- a/libgfortran/generated/_atan2_r4.F90
+++ b/libgfortran/generated/_atan2_r4.F90
@@ -39,11 +39,11 @@
  
  #ifdef HAVE_ATAN2F
  
-elemental function specific__atan2_r4 (p1, p2)
+elemental function _gfortran_specific__atan2_r4 (p1, p2)
     real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__atan2_r4
+   real (kind=4) :: _gfortran_specific__atan2_r4
  
-   specific__atan2_r4 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r4 = atan2 (p1, p2)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan2_r8.F90 b/libgfortran/generated/_atan2_r8.F90

index 752b16539873940d5caf447ac092e87297c4514b..ef83c9d28317558a750056c8eb68ed82b8ff9b03 100644 (file)
--- a/libgfortran/generated/_atan2_r8.F90
+++ b/libgfortran/generated/_atan2_r8.F90
@@ -39,11 +39,11 @@
  
  #ifdef HAVE_ATAN2
  
-elemental function specific__atan2_r8 (p1, p2)
+elemental function _gfortran_specific__atan2_r8 (p1, p2)
     real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__atan2_r8
+   real (kind=8) :: _gfortran_specific__atan2_r8
  
-   specific__atan2_r8 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r8 = atan2 (p1, p2)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan_r10.F90 b/libgfortran/generated/_atan_r10.F90

index 195d9414f5281e2e57a32b62fd023176e14327bd..282393391dfd26cfabecdb7f17f87c7be2f69a43 100644 (file)
--- a/libgfortran/generated/_atan_r10.F90
+++ b/libgfortran/generated/_atan_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ATANL
  
-elemental function specific__atan_r10 (parm)
+elemental function _gfortran_specific__atan_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__atan_r10
+   real (kind=10) :: _gfortran_specific__atan_r10
  
-   specific__atan_r10 = atan (parm)
+   _gfortran_specific__atan_r10 = atan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan_r16.F90 b/libgfortran/generated/_atan_r16.F90

index 2691a34fd372cbd217f45c99650352a4a25654c3..5b4ccb3783083b1f10bb49d68021adaed98f9fee 100644 (file)
--- a/libgfortran/generated/_atan_r16.F90
+++ b/libgfortran/generated/_atan_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ATANL
  
-elemental function specific__atan_r16 (parm)
+elemental function _gfortran_specific__atan_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__atan_r16
+   real (kind=16) :: _gfortran_specific__atan_r16
  
-   specific__atan_r16 = atan (parm)
+   _gfortran_specific__atan_r16 = atan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan_r4.F90 b/libgfortran/generated/_atan_r4.F90

index 4e88ab24f6978811a831d329c532d3584ea0addf..74dc979de6c78f0d515097b6e2c79d0a41a60c0f 100644 (file)
--- a/libgfortran/generated/_atan_r4.F90
+++ b/libgfortran/generated/_atan_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ATANF
  
-elemental function specific__atan_r4 (parm)
+elemental function _gfortran_specific__atan_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__atan_r4
+   real (kind=4) :: _gfortran_specific__atan_r4
  
-   specific__atan_r4 = atan (parm)
+   _gfortran_specific__atan_r4 = atan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atan_r8.F90 b/libgfortran/generated/_atan_r8.F90

index a99de95447ba4f5fe5492a576f20d65a220e6419..55b45bdc3d6ad42e2772a51a14612f0d88d27af6 100644 (file)
--- a/libgfortran/generated/_atan_r8.F90
+++ b/libgfortran/generated/_atan_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ATAN
  
-elemental function specific__atan_r8 (parm)
+elemental function _gfortran_specific__atan_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__atan_r8
+   real (kind=8) :: _gfortran_specific__atan_r8
  
-   specific__atan_r8 = atan (parm)
+   _gfortran_specific__atan_r8 = atan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atanh_r10.F90 b/libgfortran/generated/_atanh_r10.F90

index 75cdf993e647e6d765132e2d61c6d81886bf2e9a..9cee6dde758be3bb6bc819384d439b32b018698e 100644 (file)
--- a/libgfortran/generated/_atanh_r10.F90
+++ b/libgfortran/generated/_atanh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_ATANHL
  
-elemental function specific__atanh_r10 (parm)
+elemental function _gfortran_specific__atanh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__atanh_r10
+   real (kind=10) :: _gfortran_specific__atanh_r10
  
-   specific__atanh_r10 = atanh (parm)
+   _gfortran_specific__atanh_r10 = atanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atanh_r16.F90 b/libgfortran/generated/_atanh_r16.F90

index bc6e71cb311cc62ef115dfc4a74565158fd40ae9..9322e6a3121020016abe5e8247189dacb9a2b4e9 100644 (file)
--- a/libgfortran/generated/_atanh_r16.F90
+++ b/libgfortran/generated/_atanh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_ATANHL
  
-elemental function specific__atanh_r16 (parm)
+elemental function _gfortran_specific__atanh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__atanh_r16
+   real (kind=16) :: _gfortran_specific__atanh_r16
  
-   specific__atanh_r16 = atanh (parm)
+   _gfortran_specific__atanh_r16 = atanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atanh_r4.F90 b/libgfortran/generated/_atanh_r4.F90

index edbd4198ef04326f3ab14108bdbcde5f079d36cf..f08764a78c51c42ded8ad86340142afc7a626aa1 100644 (file)
--- a/libgfortran/generated/_atanh_r4.F90
+++ b/libgfortran/generated/_atanh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_ATANHF
  
-elemental function specific__atanh_r4 (parm)
+elemental function _gfortran_specific__atanh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__atanh_r4
+   real (kind=4) :: _gfortran_specific__atanh_r4
  
-   specific__atanh_r4 = atanh (parm)
+   _gfortran_specific__atanh_r4 = atanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_atanh_r8.F90 b/libgfortran/generated/_atanh_r8.F90

index 05dd808ff4b36666496d60ae750aa8f22fc72e6d..b3871086e48285dce062c022e1ec6d55caa35f3a 100644 (file)
--- a/libgfortran/generated/_atanh_r8.F90
+++ b/libgfortran/generated/_atanh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_ATANH
  
-elemental function specific__atanh_r8 (parm)
+elemental function _gfortran_specific__atanh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__atanh_r8
+   real (kind=8) :: _gfortran_specific__atanh_r8
  
-   specific__atanh_r8 = atanh (parm)
+   _gfortran_specific__atanh_r8 = atanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_conjg_c10.F90 b/libgfortran/generated/_conjg_c10.F90

index e03a21bb32492be5784d9747d20dad579526a26b..df082e99a7a7e6f41e2b78938a27f56c2fb1c5ba 100644 (file)
--- a/libgfortran/generated/_conjg_c10.F90
+++ b/libgfortran/generated/_conjg_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  
  
-elemental function specific__conjg_10 (parm)
+elemental function _gfortran_specific__conjg_10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__conjg_10
+   complex (kind=10) :: _gfortran_specific__conjg_10
  
-   specific__conjg_10 = conjg (parm)
+   _gfortran_specific__conjg_10 = conjg (parm)
  end function
  
  
diff --git a/libgfortran/generated/_conjg_c16.F90 b/libgfortran/generated/_conjg_c16.F90

index 876575ebc939a7a7ae884a75016d48faa99b8e8d..69565bdb10454f5a564d2efbcbdb18275b4c175a 100644 (file)
--- a/libgfortran/generated/_conjg_c16.F90
+++ b/libgfortran/generated/_conjg_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  
  
-elemental function specific__conjg_16 (parm)
+elemental function _gfortran_specific__conjg_16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__conjg_16
+   complex (kind=16) :: _gfortran_specific__conjg_16
  
-   specific__conjg_16 = conjg (parm)
+   _gfortran_specific__conjg_16 = conjg (parm)
  end function
  
  
diff --git a/libgfortran/generated/_conjg_c4.F90 b/libgfortran/generated/_conjg_c4.F90

index ca615ec014f02e5605c82d5f182bcd30c0c770b7..5dadbec243f9114843408ba0aa78458a8fb75f40 100644 (file)
--- a/libgfortran/generated/_conjg_c4.F90
+++ b/libgfortran/generated/_conjg_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  
  
-elemental function specific__conjg_4 (parm)
+elemental function _gfortran_specific__conjg_4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__conjg_4
+   complex (kind=4) :: _gfortran_specific__conjg_4
  
-   specific__conjg_4 = conjg (parm)
+   _gfortran_specific__conjg_4 = conjg (parm)
  end function
  
  
diff --git a/libgfortran/generated/_conjg_c8.F90 b/libgfortran/generated/_conjg_c8.F90

index b58de8ed45f597051bc70c496451abb316435705..bac101fa1ad888522da381b8f4b633d4c2a2ec10 100644 (file)
--- a/libgfortran/generated/_conjg_c8.F90
+++ b/libgfortran/generated/_conjg_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  
  
-elemental function specific__conjg_8 (parm)
+elemental function _gfortran_specific__conjg_8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__conjg_8
+   complex (kind=8) :: _gfortran_specific__conjg_8
  
-   specific__conjg_8 = conjg (parm)
+   _gfortran_specific__conjg_8 = conjg (parm)
  end function
  
  
diff --git a/libgfortran/generated/_cos_c10.F90 b/libgfortran/generated/_cos_c10.F90

index 018394cc91934bed724ca67686204d5c71330315..e926d862f16da9e8d1ea75395cc65cbac5216e87 100644 (file)
--- a/libgfortran/generated/_cos_c10.F90
+++ b/libgfortran/generated/_cos_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CCOSL
  
-elemental function specific__cos_c10 (parm)
+elemental function _gfortran_specific__cos_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__cos_c10
+   complex (kind=10) :: _gfortran_specific__cos_c10
  
-   specific__cos_c10 = cos (parm)
+   _gfortran_specific__cos_c10 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_c16.F90 b/libgfortran/generated/_cos_c16.F90

index ac6bc876862935957a0676607f424663fcf86a77..f98ff0f9586d77c4bbcce5b9f87d09cd97aeace2 100644 (file)
--- a/libgfortran/generated/_cos_c16.F90
+++ b/libgfortran/generated/_cos_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CCOSL
  
-elemental function specific__cos_c16 (parm)
+elemental function _gfortran_specific__cos_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__cos_c16
+   complex (kind=16) :: _gfortran_specific__cos_c16
  
-   specific__cos_c16 = cos (parm)
+   _gfortran_specific__cos_c16 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_c4.F90 b/libgfortran/generated/_cos_c4.F90

index e49469577bc262c7f0b7e93bda8f5a823801e9c6..3e7e243e5b5f1dc48e6b198dbbccfaeffd009bf7 100644 (file)
--- a/libgfortran/generated/_cos_c4.F90
+++ b/libgfortran/generated/_cos_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CCOSF
  
-elemental function specific__cos_c4 (parm)
+elemental function _gfortran_specific__cos_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__cos_c4
+   complex (kind=4) :: _gfortran_specific__cos_c4
  
-   specific__cos_c4 = cos (parm)
+   _gfortran_specific__cos_c4 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_c8.F90 b/libgfortran/generated/_cos_c8.F90

index d3daf6e1360d3450db5163d8dbea9d3cc4832234..6a7d1fa07e639905d5852799ba64296ab8bd6d3d 100644 (file)
--- a/libgfortran/generated/_cos_c8.F90
+++ b/libgfortran/generated/_cos_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CCOS
  
-elemental function specific__cos_c8 (parm)
+elemental function _gfortran_specific__cos_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__cos_c8
+   complex (kind=8) :: _gfortran_specific__cos_c8
  
-   specific__cos_c8 = cos (parm)
+   _gfortran_specific__cos_c8 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_r10.F90 b/libgfortran/generated/_cos_r10.F90

index 142cb4b947f7fc6aca7c9e4ea4f0a429ed62e8db..c68230ceb48088638f48fe1617c643bf2470cadd 100644 (file)
--- a/libgfortran/generated/_cos_r10.F90
+++ b/libgfortran/generated/_cos_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_COSL
  
-elemental function specific__cos_r10 (parm)
+elemental function _gfortran_specific__cos_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__cos_r10
+   real (kind=10) :: _gfortran_specific__cos_r10
  
-   specific__cos_r10 = cos (parm)
+   _gfortran_specific__cos_r10 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_r16.F90 b/libgfortran/generated/_cos_r16.F90

index 434639755c4849e1ba0d4c06a936d243be0bcfab..e23e7e737fb600982b087ee4a7d78adf3e12381f 100644 (file)
--- a/libgfortran/generated/_cos_r16.F90
+++ b/libgfortran/generated/_cos_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_COSL
  
-elemental function specific__cos_r16 (parm)
+elemental function _gfortran_specific__cos_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__cos_r16
+   real (kind=16) :: _gfortran_specific__cos_r16
  
-   specific__cos_r16 = cos (parm)
+   _gfortran_specific__cos_r16 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_r4.F90 b/libgfortran/generated/_cos_r4.F90

index ddf2509a272a5e22876925dd8d59a4f5c43f7972..6ae1eadf92554eb890dd0bdfd037217f6ac4cf9a 100644 (file)
--- a/libgfortran/generated/_cos_r4.F90
+++ b/libgfortran/generated/_cos_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_COSF
  
-elemental function specific__cos_r4 (parm)
+elemental function _gfortran_specific__cos_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__cos_r4
+   real (kind=4) :: _gfortran_specific__cos_r4
  
-   specific__cos_r4 = cos (parm)
+   _gfortran_specific__cos_r4 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cos_r8.F90 b/libgfortran/generated/_cos_r8.F90

index d45a11aa33cd4e84c668c093160be3cf5c436b3b..0addadc26cc5509a78fa6e913a36d8a3801c81a0 100644 (file)
--- a/libgfortran/generated/_cos_r8.F90
+++ b/libgfortran/generated/_cos_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_COS
  
-elemental function specific__cos_r8 (parm)
+elemental function _gfortran_specific__cos_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__cos_r8
+   real (kind=8) :: _gfortran_specific__cos_r8
  
-   specific__cos_r8 = cos (parm)
+   _gfortran_specific__cos_r8 = cos (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cosh_r10.F90 b/libgfortran/generated/_cosh_r10.F90

index 9c7d3fbdf88367ab5028be4ea00be5ce98a3ae47..c82329039e181ff71512342dd36d86d520da754e 100644 (file)
--- a/libgfortran/generated/_cosh_r10.F90
+++ b/libgfortran/generated/_cosh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_COSHL
  
-elemental function specific__cosh_r10 (parm)
+elemental function _gfortran_specific__cosh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__cosh_r10
+   real (kind=10) :: _gfortran_specific__cosh_r10
  
-   specific__cosh_r10 = cosh (parm)
+   _gfortran_specific__cosh_r10 = cosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cosh_r16.F90 b/libgfortran/generated/_cosh_r16.F90

index ac28f9965900298bcbee5d1b1a74332b9923027f..cb20cd3af0e4571d35dc658bc8fecca4e962b456 100644 (file)
--- a/libgfortran/generated/_cosh_r16.F90
+++ b/libgfortran/generated/_cosh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_COSHL
  
-elemental function specific__cosh_r16 (parm)
+elemental function _gfortran_specific__cosh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__cosh_r16
+   real (kind=16) :: _gfortran_specific__cosh_r16
  
-   specific__cosh_r16 = cosh (parm)
+   _gfortran_specific__cosh_r16 = cosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cosh_r4.F90 b/libgfortran/generated/_cosh_r4.F90

index 289c9bc0e24a1856f62dc6dfc33480a805d3ec77..6559d778e0e0f0d4b05da09ad29651ef2535dc96 100644 (file)
--- a/libgfortran/generated/_cosh_r4.F90
+++ b/libgfortran/generated/_cosh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_COSHF
  
-elemental function specific__cosh_r4 (parm)
+elemental function _gfortran_specific__cosh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__cosh_r4
+   real (kind=4) :: _gfortran_specific__cosh_r4
  
-   specific__cosh_r4 = cosh (parm)
+   _gfortran_specific__cosh_r4 = cosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_cosh_r8.F90 b/libgfortran/generated/_cosh_r8.F90

index 6b47452298c69001dd49e12c1735ac16bf97510e..00ff5842d26f4f21432470da109dc4c62eeb3bda 100644 (file)
--- a/libgfortran/generated/_cosh_r8.F90
+++ b/libgfortran/generated/_cosh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_COSH
  
-elemental function specific__cosh_r8 (parm)
+elemental function _gfortran_specific__cosh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__cosh_r8
+   real (kind=8) :: _gfortran_specific__cosh_r8
  
-   specific__cosh_r8 = cosh (parm)
+   _gfortran_specific__cosh_r8 = cosh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_dim_i16.F90 b/libgfortran/generated/_dim_i16.F90

index 55a1a521a88295c988abdd59bfc80e6640ed3175..acfc3a4eabfda11373779be6eb9e460c7da2ff06 100644 (file)
--- a/libgfortran/generated/_dim_i16.F90
+++ b/libgfortran/generated/_dim_i16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_i16 (p1, p2)
+elemental function _gfortran_specific__dim_i16 (p1, p2)
     integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__dim_i16
+   integer (kind=16) :: _gfortran_specific__dim_i16
  
-   specific__dim_i16 = dim (p1, p2)
+   _gfortran_specific__dim_i16 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_i4.F90 b/libgfortran/generated/_dim_i4.F90

index 2fd8658460ae09a158b4aa001bcaa36ff1e3cd68..16ef060fbfce68dfbda552e654b35b424c4c441c 100644 (file)
--- a/libgfortran/generated/_dim_i4.F90
+++ b/libgfortran/generated/_dim_i4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_i4 (p1, p2)
+elemental function _gfortran_specific__dim_i4 (p1, p2)
     integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__dim_i4
+   integer (kind=4) :: _gfortran_specific__dim_i4
  
-   specific__dim_i4 = dim (p1, p2)
+   _gfortran_specific__dim_i4 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_i8.F90 b/libgfortran/generated/_dim_i8.F90

index e861d9eb8416b8fc33c1dc67be52025bd5070b4a..01ca82a967fe91f99810efd9ddbc713c2a24fc64 100644 (file)
--- a/libgfortran/generated/_dim_i8.F90
+++ b/libgfortran/generated/_dim_i8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_i8 (p1, p2)
+elemental function _gfortran_specific__dim_i8 (p1, p2)
     integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__dim_i8
+   integer (kind=8) :: _gfortran_specific__dim_i8
  
-   specific__dim_i8 = dim (p1, p2)
+   _gfortran_specific__dim_i8 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_r10.F90 b/libgfortran/generated/_dim_r10.F90

index 1e7743d667193be188917d1f68beaa4861514cef..1d140004106b8a408c40d52a9dc889b8896b0c70 100644 (file)
--- a/libgfortran/generated/_dim_r10.F90
+++ b/libgfortran/generated/_dim_r10.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_r10 (p1, p2)
+elemental function _gfortran_specific__dim_r10 (p1, p2)
     real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__dim_r10
+   real (kind=10) :: _gfortran_specific__dim_r10
  
-   specific__dim_r10 = dim (p1, p2)
+   _gfortran_specific__dim_r10 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_r16.F90 b/libgfortran/generated/_dim_r16.F90

index 97a048890e3e8055913cdfdb1126386588038f2b..1f435b3b555ffb6d9e6791d8aa2d8d389bb0b531 100644 (file)
--- a/libgfortran/generated/_dim_r16.F90
+++ b/libgfortran/generated/_dim_r16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_r16 (p1, p2)
+elemental function _gfortran_specific__dim_r16 (p1, p2)
     real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__dim_r16
+   real (kind=16) :: _gfortran_specific__dim_r16
  
-   specific__dim_r16 = dim (p1, p2)
+   _gfortran_specific__dim_r16 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_r4.F90 b/libgfortran/generated/_dim_r4.F90

index 465b28489aa352cb8e8a713a5f75e4f868fb8263..0c4cd5d6b9aa5203d3bf32399042295d55336fb6 100644 (file)
--- a/libgfortran/generated/_dim_r4.F90
+++ b/libgfortran/generated/_dim_r4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_r4 (p1, p2)
+elemental function _gfortran_specific__dim_r4 (p1, p2)
     real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__dim_r4
+   real (kind=4) :: _gfortran_specific__dim_r4
  
-   specific__dim_r4 = dim (p1, p2)
+   _gfortran_specific__dim_r4 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_dim_r8.F90 b/libgfortran/generated/_dim_r8.F90

index 3e6b3379fe26509077e768b7e3d88ac3ece89f6a..f23b0cce1f9725d31233871c53745291c552dc82 100644 (file)
--- a/libgfortran/generated/_dim_r8.F90
+++ b/libgfortran/generated/_dim_r8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__dim_r8 (p1, p2)
+elemental function _gfortran_specific__dim_r8 (p1, p2)
     real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__dim_r8
+   real (kind=8) :: _gfortran_specific__dim_r8
  
-   specific__dim_r8 = dim (p1, p2)
+   _gfortran_specific__dim_r8 = dim (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_exp_c10.F90 b/libgfortran/generated/_exp_c10.F90

index bcf1f2bdd8733758acde51e5259557b945217bbb..126f55c95362fcf7e0cdf0871cf726773d0f52d1 100644 (file)
--- a/libgfortran/generated/_exp_c10.F90
+++ b/libgfortran/generated/_exp_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CEXPL
  
-elemental function specific__exp_c10 (parm)
+elemental function _gfortran_specific__exp_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__exp_c10
+   complex (kind=10) :: _gfortran_specific__exp_c10
  
-   specific__exp_c10 = exp (parm)
+   _gfortran_specific__exp_c10 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_c16.F90 b/libgfortran/generated/_exp_c16.F90

index 58527bc536ab66970f6194091745858ed7280c4c..ad7d4dc7244fc69038e3cb3bd7b81b2ae8635906 100644 (file)
--- a/libgfortran/generated/_exp_c16.F90
+++ b/libgfortran/generated/_exp_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CEXPL
  
-elemental function specific__exp_c16 (parm)
+elemental function _gfortran_specific__exp_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__exp_c16
+   complex (kind=16) :: _gfortran_specific__exp_c16
  
-   specific__exp_c16 = exp (parm)
+   _gfortran_specific__exp_c16 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_c4.F90 b/libgfortran/generated/_exp_c4.F90

index 6fba6756be9c63e692cb53fb4924f9abc50ab219..866820b33cc305a8740f24e82cacb0f0476bc5e7 100644 (file)
--- a/libgfortran/generated/_exp_c4.F90
+++ b/libgfortran/generated/_exp_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CEXPF
  
-elemental function specific__exp_c4 (parm)
+elemental function _gfortran_specific__exp_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__exp_c4
+   complex (kind=4) :: _gfortran_specific__exp_c4
  
-   specific__exp_c4 = exp (parm)
+   _gfortran_specific__exp_c4 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_c8.F90 b/libgfortran/generated/_exp_c8.F90

index cbc82a156dd0d079d8443b19787ed7ba59a36fef..2112ce861a0e1039e830e7e171e149e2574757d1 100644 (file)
--- a/libgfortran/generated/_exp_c8.F90
+++ b/libgfortran/generated/_exp_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CEXP
  
-elemental function specific__exp_c8 (parm)
+elemental function _gfortran_specific__exp_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__exp_c8
+   complex (kind=8) :: _gfortran_specific__exp_c8
  
-   specific__exp_c8 = exp (parm)
+   _gfortran_specific__exp_c8 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_r10.F90 b/libgfortran/generated/_exp_r10.F90

index 86bf749943a8aec6ea7fe2b5bc376c45d6de5f0a..03e8fa02902ae0e993cc2ea036965380e783f6b9 100644 (file)
--- a/libgfortran/generated/_exp_r10.F90
+++ b/libgfortran/generated/_exp_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_EXPL
  
-elemental function specific__exp_r10 (parm)
+elemental function _gfortran_specific__exp_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__exp_r10
+   real (kind=10) :: _gfortran_specific__exp_r10
  
-   specific__exp_r10 = exp (parm)
+   _gfortran_specific__exp_r10 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_r16.F90 b/libgfortran/generated/_exp_r16.F90

index 4aaee9eb17d8d069318cbd96afae8523359dbabe..a88733c91f4fa528d2549faf941297772ebc99bf 100644 (file)
--- a/libgfortran/generated/_exp_r16.F90
+++ b/libgfortran/generated/_exp_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_EXPL
  
-elemental function specific__exp_r16 (parm)
+elemental function _gfortran_specific__exp_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__exp_r16
+   real (kind=16) :: _gfortran_specific__exp_r16
  
-   specific__exp_r16 = exp (parm)
+   _gfortran_specific__exp_r16 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_r4.F90 b/libgfortran/generated/_exp_r4.F90

index d76fb143cc649b304bc7cbaffeefb3d376bf636b..0d71d2e493bd7447abdbecfde6060c1d19efbd1d 100644 (file)
--- a/libgfortran/generated/_exp_r4.F90
+++ b/libgfortran/generated/_exp_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_EXPF
  
-elemental function specific__exp_r4 (parm)
+elemental function _gfortran_specific__exp_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__exp_r4
+   real (kind=4) :: _gfortran_specific__exp_r4
  
-   specific__exp_r4 = exp (parm)
+   _gfortran_specific__exp_r4 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_exp_r8.F90 b/libgfortran/generated/_exp_r8.F90

index d529810ca57cce13563edc8dec1f913253861bfc..e0e2c8d057a4c62dd665f59fc4e3a5b943a2ad45 100644 (file)
--- a/libgfortran/generated/_exp_r8.F90
+++ b/libgfortran/generated/_exp_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_EXP
  
-elemental function specific__exp_r8 (parm)
+elemental function _gfortran_specific__exp_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__exp_r8
+   real (kind=8) :: _gfortran_specific__exp_r8
  
-   specific__exp_r8 = exp (parm)
+   _gfortran_specific__exp_r8 = exp (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log10_r10.F90 b/libgfortran/generated/_log10_r10.F90

index 19aeac5c1befd58251403867cf924299542861ca..f293489eb185b2d3b67358cc7775d6cea5ab2881 100644 (file)
--- a/libgfortran/generated/_log10_r10.F90
+++ b/libgfortran/generated/_log10_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_LOG10L
  
-elemental function specific__log10_r10 (parm)
+elemental function _gfortran_specific__log10_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__log10_r10
+   real (kind=10) :: _gfortran_specific__log10_r10
  
-   specific__log10_r10 = log10 (parm)
+   _gfortran_specific__log10_r10 = log10 (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log10_r16.F90 b/libgfortran/generated/_log10_r16.F90

index c03002aa45604c78e2bff4f48697eafdc598ba04..f690879953b3ecfcc66bb728ed7d95041c0b0e72 100644 (file)
--- a/libgfortran/generated/_log10_r16.F90
+++ b/libgfortran/generated/_log10_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_LOG10L
  
-elemental function specific__log10_r16 (parm)
+elemental function _gfortran_specific__log10_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__log10_r16
+   real (kind=16) :: _gfortran_specific__log10_r16
  
-   specific__log10_r16 = log10 (parm)
+   _gfortran_specific__log10_r16 = log10 (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log10_r4.F90 b/libgfortran/generated/_log10_r4.F90

index c772527ae861d56d61b77cc73fba2f464640226b..bcadf2417ee216cd0aacb1d1bc05ef7e30fe1a66 100644 (file)
--- a/libgfortran/generated/_log10_r4.F90
+++ b/libgfortran/generated/_log10_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_LOG10F
  
-elemental function specific__log10_r4 (parm)
+elemental function _gfortran_specific__log10_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__log10_r4
+   real (kind=4) :: _gfortran_specific__log10_r4
  
-   specific__log10_r4 = log10 (parm)
+   _gfortran_specific__log10_r4 = log10 (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log10_r8.F90 b/libgfortran/generated/_log10_r8.F90

index 396570989e6af5af6fd31fa424c457fff1445039..7d55ad703e7bbc07192ac4a20679651b95b08e43 100644 (file)
--- a/libgfortran/generated/_log10_r8.F90
+++ b/libgfortran/generated/_log10_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_LOG10
  
-elemental function specific__log10_r8 (parm)
+elemental function _gfortran_specific__log10_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__log10_r8
+   real (kind=8) :: _gfortran_specific__log10_r8
  
-   specific__log10_r8 = log10 (parm)
+   _gfortran_specific__log10_r8 = log10 (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_c10.F90 b/libgfortran/generated/_log_c10.F90

index e3f6934e6288d948943f42c93ce259a418385ac1..90e415bcd2e8af467600541e54f14e8b5659561b 100644 (file)
--- a/libgfortran/generated/_log_c10.F90
+++ b/libgfortran/generated/_log_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CLOGL
  
-elemental function specific__log_c10 (parm)
+elemental function _gfortran_specific__log_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__log_c10
+   complex (kind=10) :: _gfortran_specific__log_c10
  
-   specific__log_c10 = log (parm)
+   _gfortran_specific__log_c10 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_c16.F90 b/libgfortran/generated/_log_c16.F90

index 776140a7e78bc452f7c5b8f5bad1b895bf3ec8ad..d9db7cea0355b2acd0aae75eb5320e742d32b7bd 100644 (file)
--- a/libgfortran/generated/_log_c16.F90
+++ b/libgfortran/generated/_log_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CLOGL
  
-elemental function specific__log_c16 (parm)
+elemental function _gfortran_specific__log_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__log_c16
+   complex (kind=16) :: _gfortran_specific__log_c16
  
-   specific__log_c16 = log (parm)
+   _gfortran_specific__log_c16 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_c4.F90 b/libgfortran/generated/_log_c4.F90

index 923bdd573cab4acb5c03f9958d3906c05b555a67..550ed1d6eed9a8fdc845cc9f07affec5a1c78a92 100644 (file)
--- a/libgfortran/generated/_log_c4.F90
+++ b/libgfortran/generated/_log_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CLOGF
  
-elemental function specific__log_c4 (parm)
+elemental function _gfortran_specific__log_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__log_c4
+   complex (kind=4) :: _gfortran_specific__log_c4
  
-   specific__log_c4 = log (parm)
+   _gfortran_specific__log_c4 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_c8.F90 b/libgfortran/generated/_log_c8.F90

index 0df0dd83d2d15c6f8f0d14e04ca43f2dd828cafb..ee26dc21f1545177acd209ed3f0b22c5bab6b328 100644 (file)
--- a/libgfortran/generated/_log_c8.F90
+++ b/libgfortran/generated/_log_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CLOG
  
-elemental function specific__log_c8 (parm)
+elemental function _gfortran_specific__log_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__log_c8
+   complex (kind=8) :: _gfortran_specific__log_c8
  
-   specific__log_c8 = log (parm)
+   _gfortran_specific__log_c8 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_r10.F90 b/libgfortran/generated/_log_r10.F90

index d8938818053b7d79bfb7d03ed9274d85a2cc0c93..ca7d33743895082acf54e433fdf368fb21dc8964 100644 (file)
--- a/libgfortran/generated/_log_r10.F90
+++ b/libgfortran/generated/_log_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_LOGL
  
-elemental function specific__log_r10 (parm)
+elemental function _gfortran_specific__log_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__log_r10
+   real (kind=10) :: _gfortran_specific__log_r10
  
-   specific__log_r10 = log (parm)
+   _gfortran_specific__log_r10 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_r16.F90 b/libgfortran/generated/_log_r16.F90

index 5013656e9da8d0405c563346481fd78467ca6b4c..7bd4038a5004fe80c374607fa9a0a89f776ba5a2 100644 (file)
--- a/libgfortran/generated/_log_r16.F90
+++ b/libgfortran/generated/_log_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_LOGL
  
-elemental function specific__log_r16 (parm)
+elemental function _gfortran_specific__log_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__log_r16
+   real (kind=16) :: _gfortran_specific__log_r16
  
-   specific__log_r16 = log (parm)
+   _gfortran_specific__log_r16 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_r4.F90 b/libgfortran/generated/_log_r4.F90

index 6a742377648d01a379b3d040d88286669f283664..b4e6217bfe10e01105bcbf4f8097df61e8ac8180 100644 (file)
--- a/libgfortran/generated/_log_r4.F90
+++ b/libgfortran/generated/_log_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_LOGF
  
-elemental function specific__log_r4 (parm)
+elemental function _gfortran_specific__log_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__log_r4
+   real (kind=4) :: _gfortran_specific__log_r4
  
-   specific__log_r4 = log (parm)
+   _gfortran_specific__log_r4 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_log_r8.F90 b/libgfortran/generated/_log_r8.F90

index 8383bbfd36a996ae01e169bfb73d6bb23815a5f5..a0b149b16ce404153c2bedeced706d4c0e9dc376 100644 (file)
--- a/libgfortran/generated/_log_r8.F90
+++ b/libgfortran/generated/_log_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_LOG
  
-elemental function specific__log_r8 (parm)
+elemental function _gfortran_specific__log_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__log_r8
+   real (kind=8) :: _gfortran_specific__log_r8
  
-   specific__log_r8 = log (parm)
+   _gfortran_specific__log_r8 = log (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_mod_i16.F90 b/libgfortran/generated/_mod_i16.F90

index 571db409bf9e732da37c7a51c535cbb5a4490823..fd851b8d218e34a5962b556e8299021a80b378bb 100644 (file)
--- a/libgfortran/generated/_mod_i16.F90
+++ b/libgfortran/generated/_mod_i16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_i16 (p1, p2)
+elemental function _gfortran_specific__mod_i16 (p1, p2)
     integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__mod_i16
+   integer (kind=16) :: _gfortran_specific__mod_i16
  
-   specific__mod_i16 = mod (p1, p2)
+   _gfortran_specific__mod_i16 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_i4.F90 b/libgfortran/generated/_mod_i4.F90

index ec6f81dee2a0051cf46006647bb35f439bc04326..7f5bcb220158990a540b8031d1557603a66a2d27 100644 (file)
--- a/libgfortran/generated/_mod_i4.F90
+++ b/libgfortran/generated/_mod_i4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_i4 (p1, p2)
+elemental function _gfortran_specific__mod_i4 (p1, p2)
     integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__mod_i4
+   integer (kind=4) :: _gfortran_specific__mod_i4
  
-   specific__mod_i4 = mod (p1, p2)
+   _gfortran_specific__mod_i4 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_i8.F90 b/libgfortran/generated/_mod_i8.F90

index e34278b13eca85209a2eaf7461699dd337442c69..94f6c7b85f443b19ecc567df11c593d782fcd405 100644 (file)
--- a/libgfortran/generated/_mod_i8.F90
+++ b/libgfortran/generated/_mod_i8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_i8 (p1, p2)
+elemental function _gfortran_specific__mod_i8 (p1, p2)
     integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__mod_i8
+   integer (kind=8) :: _gfortran_specific__mod_i8
  
-   specific__mod_i8 = mod (p1, p2)
+   _gfortran_specific__mod_i8 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_r10.F90 b/libgfortran/generated/_mod_r10.F90

index 9826d122f57aa45c5becbfefe527d7d9eac29ea6..a4cf1d0404675f125dd508652c3412b2c55a03ff 100644 (file)
--- a/libgfortran/generated/_mod_r10.F90
+++ b/libgfortran/generated/_mod_r10.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_r10 (p1, p2)
+elemental function _gfortran_specific__mod_r10 (p1, p2)
     real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__mod_r10
+   real (kind=10) :: _gfortran_specific__mod_r10
  
-   specific__mod_r10 = mod (p1, p2)
+   _gfortran_specific__mod_r10 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_r16.F90 b/libgfortran/generated/_mod_r16.F90

index 15c2b815b1c61b0b2073c496bfc2a837bb8723f5..6ae2c4f1758ff03034bdc3f80bd4799c6a967529 100644 (file)
--- a/libgfortran/generated/_mod_r16.F90
+++ b/libgfortran/generated/_mod_r16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_r16 (p1, p2)
+elemental function _gfortran_specific__mod_r16 (p1, p2)
     real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__mod_r16
+   real (kind=16) :: _gfortran_specific__mod_r16
  
-   specific__mod_r16 = mod (p1, p2)
+   _gfortran_specific__mod_r16 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_r4.F90 b/libgfortran/generated/_mod_r4.F90

index 6742ee488affe0d1b8b5c0c946855a7c0c6c01d8..dfb0f078e8ee4280d8033b33305191c605581aaf 100644 (file)
--- a/libgfortran/generated/_mod_r4.F90
+++ b/libgfortran/generated/_mod_r4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_r4 (p1, p2)
+elemental function _gfortran_specific__mod_r4 (p1, p2)
     real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__mod_r4
+   real (kind=4) :: _gfortran_specific__mod_r4
  
-   specific__mod_r4 = mod (p1, p2)
+   _gfortran_specific__mod_r4 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_mod_r8.F90 b/libgfortran/generated/_mod_r8.F90

index 3cc7e1651114b53847d75b060cfd210c910ca274..50df377fc6b6eb3f77a71ca12b41d678d32644fd 100644 (file)
--- a/libgfortran/generated/_mod_r8.F90
+++ b/libgfortran/generated/_mod_r8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__mod_r8 (p1, p2)
+elemental function _gfortran_specific__mod_r8 (p1, p2)
     real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__mod_r8
+   real (kind=8) :: _gfortran_specific__mod_r8
  
-   specific__mod_r8 = mod (p1, p2)
+   _gfortran_specific__mod_r8 = mod (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_i16.F90 b/libgfortran/generated/_sign_i16.F90

index 50e492c3f802aa4026d3bba0aa66683219ffce4a..3e642b29b8112caec36011f4ce8a090798bd7f83 100644 (file)
--- a/libgfortran/generated/_sign_i16.F90
+++ b/libgfortran/generated/_sign_i16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_i16 (p1, p2)
+elemental function _gfortran_specific__sign_i16 (p1, p2)
     integer (kind=16), intent (in) :: p1, p2
-   integer (kind=16) :: specific__sign_i16
+   integer (kind=16) :: _gfortran_specific__sign_i16
  
-   specific__sign_i16 = sign (p1, p2)
+   _gfortran_specific__sign_i16 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_i4.F90 b/libgfortran/generated/_sign_i4.F90

index d9ea551c6d9d2fdd3b52379bf07bd1c41762903a..d637aae54bf67d4f0cc68e511a83f39d0d216b76 100644 (file)
--- a/libgfortran/generated/_sign_i4.F90
+++ b/libgfortran/generated/_sign_i4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_i4 (p1, p2)
+elemental function _gfortran_specific__sign_i4 (p1, p2)
     integer (kind=4), intent (in) :: p1, p2
-   integer (kind=4) :: specific__sign_i4
+   integer (kind=4) :: _gfortran_specific__sign_i4
  
-   specific__sign_i4 = sign (p1, p2)
+   _gfortran_specific__sign_i4 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_i8.F90 b/libgfortran/generated/_sign_i8.F90

index 241fb8b0f1c9c948d34899f9d43b58ed27a61919..00d0eda6964c8b32e57c5ba5b024763128024e96 100644 (file)
--- a/libgfortran/generated/_sign_i8.F90
+++ b/libgfortran/generated/_sign_i8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_i8 (p1, p2)
+elemental function _gfortran_specific__sign_i8 (p1, p2)
     integer (kind=8), intent (in) :: p1, p2
-   integer (kind=8) :: specific__sign_i8
+   integer (kind=8) :: _gfortran_specific__sign_i8
  
-   specific__sign_i8 = sign (p1, p2)
+   _gfortran_specific__sign_i8 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_r10.F90 b/libgfortran/generated/_sign_r10.F90

index 002330f0d80c71972a7b04e7e953f4e1b48587e4..b165526b579aa1d913e7e84e1035f5f2be228e4e 100644 (file)
--- a/libgfortran/generated/_sign_r10.F90
+++ b/libgfortran/generated/_sign_r10.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_r10 (p1, p2)
+elemental function _gfortran_specific__sign_r10 (p1, p2)
     real (kind=10), intent (in) :: p1, p2
-   real (kind=10) :: specific__sign_r10
+   real (kind=10) :: _gfortran_specific__sign_r10
  
-   specific__sign_r10 = sign (p1, p2)
+   _gfortran_specific__sign_r10 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_r16.F90 b/libgfortran/generated/_sign_r16.F90

index 8377969c67aebbaae679474bf1128472d81cdcd5..5e66148d3ffe90984e9ba0ee229ff7e4479660d1 100644 (file)
--- a/libgfortran/generated/_sign_r16.F90
+++ b/libgfortran/generated/_sign_r16.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_r16 (p1, p2)
+elemental function _gfortran_specific__sign_r16 (p1, p2)
     real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__sign_r16
+   real (kind=16) :: _gfortran_specific__sign_r16
  
-   specific__sign_r16 = sign (p1, p2)
+   _gfortran_specific__sign_r16 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_r4.F90 b/libgfortran/generated/_sign_r4.F90

index e11f15d093edac30133d2e9484a7269c93517152..6428b9adf4fb081114177f31226f51057c523032 100644 (file)
--- a/libgfortran/generated/_sign_r4.F90
+++ b/libgfortran/generated/_sign_r4.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_r4 (p1, p2)
+elemental function _gfortran_specific__sign_r4 (p1, p2)
     real (kind=4), intent (in) :: p1, p2
-   real (kind=4) :: specific__sign_r4
+   real (kind=4) :: _gfortran_specific__sign_r4
  
-   specific__sign_r4 = sign (p1, p2)
+   _gfortran_specific__sign_r4 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sign_r8.F90 b/libgfortran/generated/_sign_r8.F90

index 66f8dee53a52e9444c2850487fd405d0c48e8238..452132dd0fe9ffa1fe4555b4056f3ea0042f74a2 100644 (file)
--- a/libgfortran/generated/_sign_r8.F90
+++ b/libgfortran/generated/_sign_r8.F90
@@ -39,11 +39,11 @@
  
  
  
-elemental function specific__sign_r8 (p1, p2)
+elemental function _gfortran_specific__sign_r8 (p1, p2)
     real (kind=8), intent (in) :: p1, p2
-   real (kind=8) :: specific__sign_r8
+   real (kind=8) :: _gfortran_specific__sign_r8
  
-   specific__sign_r8 = sign (p1, p2)
+   _gfortran_specific__sign_r8 = sign (p1, p2)
  end function
  
  
diff --git a/libgfortran/generated/_sin_c10.F90 b/libgfortran/generated/_sin_c10.F90

index 2c34b3c931d2f674f67dcf5f4c85d2fd1c6b607e..6384598ee84929e3c8cea4d4abb8cc0c8ab60974 100644 (file)
--- a/libgfortran/generated/_sin_c10.F90
+++ b/libgfortran/generated/_sin_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CSINL
  
-elemental function specific__sin_c10 (parm)
+elemental function _gfortran_specific__sin_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__sin_c10
+   complex (kind=10) :: _gfortran_specific__sin_c10
  
-   specific__sin_c10 = sin (parm)
+   _gfortran_specific__sin_c10 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_c16.F90 b/libgfortran/generated/_sin_c16.F90

index 75a7108795fe52f868614f30ce2460458a5bb6dd..4e8f445f722bdc9c3dd1712171dd5a805b874adb 100644 (file)
--- a/libgfortran/generated/_sin_c16.F90
+++ b/libgfortran/generated/_sin_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CSINL
  
-elemental function specific__sin_c16 (parm)
+elemental function _gfortran_specific__sin_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__sin_c16
+   complex (kind=16) :: _gfortran_specific__sin_c16
  
-   specific__sin_c16 = sin (parm)
+   _gfortran_specific__sin_c16 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_c4.F90 b/libgfortran/generated/_sin_c4.F90

index 0efc127d87f7317035e7f3a6668e817f0ca06c94..7f4b6be630799bed42f1cff6300013dec5b059d7 100644 (file)
--- a/libgfortran/generated/_sin_c4.F90
+++ b/libgfortran/generated/_sin_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CSINF
  
-elemental function specific__sin_c4 (parm)
+elemental function _gfortran_specific__sin_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__sin_c4
+   complex (kind=4) :: _gfortran_specific__sin_c4
  
-   specific__sin_c4 = sin (parm)
+   _gfortran_specific__sin_c4 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_c8.F90 b/libgfortran/generated/_sin_c8.F90

index 73a27a42e69c909c858b6cd7fbb19fc6d6230ea8..9abd4a13ec4a0fa5099e110553c33a80ea9c23c1 100644 (file)
--- a/libgfortran/generated/_sin_c8.F90
+++ b/libgfortran/generated/_sin_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CSIN
  
-elemental function specific__sin_c8 (parm)
+elemental function _gfortran_specific__sin_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__sin_c8
+   complex (kind=8) :: _gfortran_specific__sin_c8
  
-   specific__sin_c8 = sin (parm)
+   _gfortran_specific__sin_c8 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_r10.F90 b/libgfortran/generated/_sin_r10.F90

index 55f5871fc3decdf47f259bdfd23ad0424da9bf7c..f201962e6891520cc8e5baf4d39f66ed5f1f84fd 100644 (file)
--- a/libgfortran/generated/_sin_r10.F90
+++ b/libgfortran/generated/_sin_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_SINL
  
-elemental function specific__sin_r10 (parm)
+elemental function _gfortran_specific__sin_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sin_r10
+   real (kind=10) :: _gfortran_specific__sin_r10
  
-   specific__sin_r10 = sin (parm)
+   _gfortran_specific__sin_r10 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_r16.F90 b/libgfortran/generated/_sin_r16.F90

index 3757cc0b1f8e5023b08fe478caf9efc53184f470..10c86a88e49a183303507702e38d8a6d8a923fdf 100644 (file)
--- a/libgfortran/generated/_sin_r16.F90
+++ b/libgfortran/generated/_sin_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_SINL
  
-elemental function specific__sin_r16 (parm)
+elemental function _gfortran_specific__sin_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sin_r16
+   real (kind=16) :: _gfortran_specific__sin_r16
  
-   specific__sin_r16 = sin (parm)
+   _gfortran_specific__sin_r16 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_r4.F90 b/libgfortran/generated/_sin_r4.F90

index 4fea10356e91a19152715f9dc48f9aac82ac9d50..b586928daf0d790e1e47cf40942b5445f7ad2702 100644 (file)
--- a/libgfortran/generated/_sin_r4.F90
+++ b/libgfortran/generated/_sin_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_SINF
  
-elemental function specific__sin_r4 (parm)
+elemental function _gfortran_specific__sin_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sin_r4
+   real (kind=4) :: _gfortran_specific__sin_r4
  
-   specific__sin_r4 = sin (parm)
+   _gfortran_specific__sin_r4 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sin_r8.F90 b/libgfortran/generated/_sin_r8.F90

index e35c3d1c25452527a9cb449742350fccfe417963..cb8e25772d90d8e43b79ced72aba144ca07982b0 100644 (file)
--- a/libgfortran/generated/_sin_r8.F90
+++ b/libgfortran/generated/_sin_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_SIN
  
-elemental function specific__sin_r8 (parm)
+elemental function _gfortran_specific__sin_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sin_r8
+   real (kind=8) :: _gfortran_specific__sin_r8
  
-   specific__sin_r8 = sin (parm)
+   _gfortran_specific__sin_r8 = sin (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sinh_r10.F90 b/libgfortran/generated/_sinh_r10.F90

index 7aa5e98a2f374f7844e9bf38fccb6130a015ab3f..67609d682d22eedd3e36ed99b48747dbcda4f938 100644 (file)
--- a/libgfortran/generated/_sinh_r10.F90
+++ b/libgfortran/generated/_sinh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_SINHL
  
-elemental function specific__sinh_r10 (parm)
+elemental function _gfortran_specific__sinh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sinh_r10
+   real (kind=10) :: _gfortran_specific__sinh_r10
  
-   specific__sinh_r10 = sinh (parm)
+   _gfortran_specific__sinh_r10 = sinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sinh_r16.F90 b/libgfortran/generated/_sinh_r16.F90

index 6ea69470788b6ac387cab3a55ba014127193f116..6274a59b7d61f1edcf0f24f0cf612e44882f32b7 100644 (file)
--- a/libgfortran/generated/_sinh_r16.F90
+++ b/libgfortran/generated/_sinh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_SINHL
  
-elemental function specific__sinh_r16 (parm)
+elemental function _gfortran_specific__sinh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sinh_r16
+   real (kind=16) :: _gfortran_specific__sinh_r16
  
-   specific__sinh_r16 = sinh (parm)
+   _gfortran_specific__sinh_r16 = sinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sinh_r4.F90 b/libgfortran/generated/_sinh_r4.F90

index 1101debe9025f7eb69782287996efb904620a939..116f205385c99c3f6234cd082a5b11bfd0ea2b30 100644 (file)
--- a/libgfortran/generated/_sinh_r4.F90
+++ b/libgfortran/generated/_sinh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_SINHF
  
-elemental function specific__sinh_r4 (parm)
+elemental function _gfortran_specific__sinh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sinh_r4
+   real (kind=4) :: _gfortran_specific__sinh_r4
  
-   specific__sinh_r4 = sinh (parm)
+   _gfortran_specific__sinh_r4 = sinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sinh_r8.F90 b/libgfortran/generated/_sinh_r8.F90

index 63eb8d5c2465a6e5cc7774c06a9e2b315c70d64f..bb4ceae479ca1319db39673e5334134a6eef0f3d 100644 (file)
--- a/libgfortran/generated/_sinh_r8.F90
+++ b/libgfortran/generated/_sinh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_SINH
  
-elemental function specific__sinh_r8 (parm)
+elemental function _gfortran_specific__sinh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sinh_r8
+   real (kind=8) :: _gfortran_specific__sinh_r8
  
-   specific__sinh_r8 = sinh (parm)
+   _gfortran_specific__sinh_r8 = sinh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_c10.F90 b/libgfortran/generated/_sqrt_c10.F90

index 2159a6b93aaa4e0cb5c21982c981796cfc148376..d6ca3b64daba1b37f81f669d39cc76925704adc5 100644 (file)
--- a/libgfortran/generated/_sqrt_c10.F90
+++ b/libgfortran/generated/_sqrt_c10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_10)
  #ifdef HAVE_CSQRTL
  
-elemental function specific__sqrt_c10 (parm)
+elemental function _gfortran_specific__sqrt_c10 (parm)
     complex (kind=10), intent (in) :: parm
-   complex (kind=10) :: specific__sqrt_c10
+   complex (kind=10) :: _gfortran_specific__sqrt_c10
  
-   specific__sqrt_c10 = sqrt (parm)
+   _gfortran_specific__sqrt_c10 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_c16.F90 b/libgfortran/generated/_sqrt_c16.F90

index 2ee9c83a1bbb8e388c3c16d14bdf563532869303..247bdf5f09dad99ea5fc181f90cb1b9e8892f115 100644 (file)
--- a/libgfortran/generated/_sqrt_c16.F90
+++ b/libgfortran/generated/_sqrt_c16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_16)
  #ifdef HAVE_CSQRTL
  
-elemental function specific__sqrt_c16 (parm)
+elemental function _gfortran_specific__sqrt_c16 (parm)
     complex (kind=16), intent (in) :: parm
-   complex (kind=16) :: specific__sqrt_c16
+   complex (kind=16) :: _gfortran_specific__sqrt_c16
  
-   specific__sqrt_c16 = sqrt (parm)
+   _gfortran_specific__sqrt_c16 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_c4.F90 b/libgfortran/generated/_sqrt_c4.F90

index 1e88a3d6e5db5b04ef8197fd804a293284247e9e..7a8195f9dca0e8b2173adb6d0271be68a016a19a 100644 (file)
--- a/libgfortran/generated/_sqrt_c4.F90
+++ b/libgfortran/generated/_sqrt_c4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_4)
  #ifdef HAVE_CSQRTF
  
-elemental function specific__sqrt_c4 (parm)
+elemental function _gfortran_specific__sqrt_c4 (parm)
     complex (kind=4), intent (in) :: parm
-   complex (kind=4) :: specific__sqrt_c4
+   complex (kind=4) :: _gfortran_specific__sqrt_c4
  
-   specific__sqrt_c4 = sqrt (parm)
+   _gfortran_specific__sqrt_c4 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_c8.F90 b/libgfortran/generated/_sqrt_c8.F90

index edd5e399b0b7ab84258bb642eb47be65445ba57d..1e1e153a91f6bc8bdea9fbc63ac8bdd5e87f9bee 100644 (file)
--- a/libgfortran/generated/_sqrt_c8.F90
+++ b/libgfortran/generated/_sqrt_c8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_COMPLEX_8)
  #ifdef HAVE_CSQRT
  
-elemental function specific__sqrt_c8 (parm)
+elemental function _gfortran_specific__sqrt_c8 (parm)
     complex (kind=8), intent (in) :: parm
-   complex (kind=8) :: specific__sqrt_c8
+   complex (kind=8) :: _gfortran_specific__sqrt_c8
  
-   specific__sqrt_c8 = sqrt (parm)
+   _gfortran_specific__sqrt_c8 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_r10.F90 b/libgfortran/generated/_sqrt_r10.F90

index 2ea81ba56cbd3b9856d04a7eef845039aa9a60dd..b770433ae9f37d0a018a99329408e415767d7b76 100644 (file)
--- a/libgfortran/generated/_sqrt_r10.F90
+++ b/libgfortran/generated/_sqrt_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_SQRTL
  
-elemental function specific__sqrt_r10 (parm)
+elemental function _gfortran_specific__sqrt_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__sqrt_r10
+   real (kind=10) :: _gfortran_specific__sqrt_r10
  
-   specific__sqrt_r10 = sqrt (parm)
+   _gfortran_specific__sqrt_r10 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_r16.F90 b/libgfortran/generated/_sqrt_r16.F90

index 5ecd027bd1be0416863a16e44345260523e1138d..8e796f8b3a25bbe2dbff1649bf9cfa3665e87f6b 100644 (file)
--- a/libgfortran/generated/_sqrt_r16.F90
+++ b/libgfortran/generated/_sqrt_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_SQRTL
  
-elemental function specific__sqrt_r16 (parm)
+elemental function _gfortran_specific__sqrt_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__sqrt_r16
+   real (kind=16) :: _gfortran_specific__sqrt_r16
  
-   specific__sqrt_r16 = sqrt (parm)
+   _gfortran_specific__sqrt_r16 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_r4.F90 b/libgfortran/generated/_sqrt_r4.F90

index 43c710f0dd2ef38e84339846e1272005fd9371d5..2181cd09d78033a16cc8dab3b6e085afb34a9fa0 100644 (file)
--- a/libgfortran/generated/_sqrt_r4.F90
+++ b/libgfortran/generated/_sqrt_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_SQRTF
  
-elemental function specific__sqrt_r4 (parm)
+elemental function _gfortran_specific__sqrt_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__sqrt_r4
+   real (kind=4) :: _gfortran_specific__sqrt_r4
  
-   specific__sqrt_r4 = sqrt (parm)
+   _gfortran_specific__sqrt_r4 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_sqrt_r8.F90 b/libgfortran/generated/_sqrt_r8.F90

index 2f710962b8f7ee5183e83cc81835e8339321d8e7..47253da4e32c4212c4062e6992b82fe68c006007 100644 (file)
--- a/libgfortran/generated/_sqrt_r8.F90
+++ b/libgfortran/generated/_sqrt_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_SQRT
  
-elemental function specific__sqrt_r8 (parm)
+elemental function _gfortran_specific__sqrt_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__sqrt_r8
+   real (kind=8) :: _gfortran_specific__sqrt_r8
  
-   specific__sqrt_r8 = sqrt (parm)
+   _gfortran_specific__sqrt_r8 = sqrt (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tan_r10.F90 b/libgfortran/generated/_tan_r10.F90

index d4c06ae4a86bbe9b5791ac3dde7973d9607ff9db..f2829e72eceddb5c6a1480bc3f752e5ac520b035 100644 (file)
--- a/libgfortran/generated/_tan_r10.F90
+++ b/libgfortran/generated/_tan_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_TANL
  
-elemental function specific__tan_r10 (parm)
+elemental function _gfortran_specific__tan_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__tan_r10
+   real (kind=10) :: _gfortran_specific__tan_r10
  
-   specific__tan_r10 = tan (parm)
+   _gfortran_specific__tan_r10 = tan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tan_r16.F90 b/libgfortran/generated/_tan_r16.F90

index 5a6f61a3f9dfd2493ad4dda7b1b7025bac5394a0..dcc7f8e8c096bbedd21f893b4c7caa9be1448c97 100644 (file)
--- a/libgfortran/generated/_tan_r16.F90
+++ b/libgfortran/generated/_tan_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_TANL
  
-elemental function specific__tan_r16 (parm)
+elemental function _gfortran_specific__tan_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__tan_r16
+   real (kind=16) :: _gfortran_specific__tan_r16
  
-   specific__tan_r16 = tan (parm)
+   _gfortran_specific__tan_r16 = tan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tan_r4.F90 b/libgfortran/generated/_tan_r4.F90

index ee8f438d7e279d41ba7d6eb339325df3a84ffa5c..638cc8da7507eb6b83e1b05e909d19b37d618314 100644 (file)
--- a/libgfortran/generated/_tan_r4.F90
+++ b/libgfortran/generated/_tan_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_TANF
  
-elemental function specific__tan_r4 (parm)
+elemental function _gfortran_specific__tan_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__tan_r4
+   real (kind=4) :: _gfortran_specific__tan_r4
  
-   specific__tan_r4 = tan (parm)
+   _gfortran_specific__tan_r4 = tan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tan_r8.F90 b/libgfortran/generated/_tan_r8.F90

index f2e357b2dd1e0917268567c48aa0e01ac86fefe3..cea722506662a348495ac00dd597b46abc1129f5 100644 (file)
--- a/libgfortran/generated/_tan_r8.F90
+++ b/libgfortran/generated/_tan_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_TAN
  
-elemental function specific__tan_r8 (parm)
+elemental function _gfortran_specific__tan_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__tan_r8
+   real (kind=8) :: _gfortran_specific__tan_r8
  
-   specific__tan_r8 = tan (parm)
+   _gfortran_specific__tan_r8 = tan (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tanh_r10.F90 b/libgfortran/generated/_tanh_r10.F90

index 5d04f65475da364d8f9a809acde38aaf394be6bd..6994238888aff6ed93283a65a496ae1f880889ad 100644 (file)
--- a/libgfortran/generated/_tanh_r10.F90
+++ b/libgfortran/generated/_tanh_r10.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_10)
  #ifdef HAVE_TANHL
  
-elemental function specific__tanh_r10 (parm)
+elemental function _gfortran_specific__tanh_r10 (parm)
     real (kind=10), intent (in) :: parm
-   real (kind=10) :: specific__tanh_r10
+   real (kind=10) :: _gfortran_specific__tanh_r10
  
-   specific__tanh_r10 = tanh (parm)
+   _gfortran_specific__tanh_r10 = tanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tanh_r16.F90 b/libgfortran/generated/_tanh_r16.F90

index 9a858b5c071ca24a55241d4d469a53d91feba9ab..d7dca68070089380118e85bbc267605e12197bfa 100644 (file)
--- a/libgfortran/generated/_tanh_r16.F90
+++ b/libgfortran/generated/_tanh_r16.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_16)
  #ifdef HAVE_TANHL
  
-elemental function specific__tanh_r16 (parm)
+elemental function _gfortran_specific__tanh_r16 (parm)
     real (kind=16), intent (in) :: parm
-   real (kind=16) :: specific__tanh_r16
+   real (kind=16) :: _gfortran_specific__tanh_r16
  
-   specific__tanh_r16 = tanh (parm)
+   _gfortran_specific__tanh_r16 = tanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tanh_r4.F90 b/libgfortran/generated/_tanh_r4.F90

index 0872fe66540e54c8394c1505f86e3b8011a9394b..098d9b86848b81a58ec875c28ccf9aae962059aa 100644 (file)
--- a/libgfortran/generated/_tanh_r4.F90
+++ b/libgfortran/generated/_tanh_r4.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_4)
  #ifdef HAVE_TANHF
  
-elemental function specific__tanh_r4 (parm)
+elemental function _gfortran_specific__tanh_r4 (parm)
     real (kind=4), intent (in) :: parm
-   real (kind=4) :: specific__tanh_r4
+   real (kind=4) :: _gfortran_specific__tanh_r4
  
-   specific__tanh_r4 = tanh (parm)
+   _gfortran_specific__tanh_r4 = tanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/_tanh_r8.F90 b/libgfortran/generated/_tanh_r8.F90

index 40a6668e403c71890a3f3b4eecb4d4bfcf1d9fc6..ca7c7ccc71da02a4bcb45ace37353ede92bd0a1a 100644 (file)
--- a/libgfortran/generated/_tanh_r8.F90
+++ b/libgfortran/generated/_tanh_r8.F90
@@ -40,11 +40,11 @@
  #if defined (HAVE_GFC_REAL_8)
  #ifdef HAVE_TANH
  
-elemental function specific__tanh_r8 (parm)
+elemental function _gfortran_specific__tanh_r8 (parm)
     real (kind=8), intent (in) :: parm
-   real (kind=8) :: specific__tanh_r8
+   real (kind=8) :: _gfortran_specific__tanh_r8
  
-   specific__tanh_r8 = tanh (parm)
+   _gfortran_specific__tanh_r8 = tanh (parm)
  end function
  
  #endif
diff --git a/libgfortran/generated/misc_specifics.F90 b/libgfortran/generated/misc_specifics.F90

index a3b103b924a1f038f0ad9121ef04013da8df1ee9..29e999f7651bec0ef188371e1f359e6806c2e7fd 100644 (file)
--- a/libgfortran/generated/misc_specifics.F90
+++ b/libgfortran/generated/misc_specifics.F90
@@ -36,176 +36,176 @@
  
  
  #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_4 (parm)
+elemental function _gfortran_specific__nint_4_4 (parm)
     real (kind=4) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_4
-   specific__nint_4_4 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_4
+   _gfortran_specific__nint_4_4 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_8 (parm)
+elemental function _gfortran_specific__nint_4_8 (parm)
     real (kind=8) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_8
-   specific__nint_4_8 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_8
+   _gfortran_specific__nint_4_8 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_10 (parm)
+elemental function _gfortran_specific__nint_4_10 (parm)
     real (kind=10) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_10
-   specific__nint_4_10 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_10
+   _gfortran_specific__nint_4_10 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-elemental function specific__nint_4_16 (parm)
+elemental function _gfortran_specific__nint_4_16 (parm)
     real (kind=16) , intent (in) :: parm
-   integer (kind=4) :: specific__nint_4_16
-   specific__nint_4_16 = nint (parm)
+   integer (kind=4) :: _gfortran_specific__nint_4_16
+   _gfortran_specific__nint_4_16 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_4 (parm)
+elemental function _gfortran_specific__nint_8_4 (parm)
     real (kind=4) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_4
-   specific__nint_8_4 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_4
+   _gfortran_specific__nint_8_4 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_8 (parm)
+elemental function _gfortran_specific__nint_8_8 (parm)
     real (kind=8) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_8
-   specific__nint_8_8 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_8
+   _gfortran_specific__nint_8_8 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_10 (parm)
+elemental function _gfortran_specific__nint_8_10 (parm)
     real (kind=10) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_10
-   specific__nint_8_10 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_10
+   _gfortran_specific__nint_8_10 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-elemental function specific__nint_8_16 (parm)
+elemental function _gfortran_specific__nint_8_16 (parm)
     real (kind=16) , intent (in) :: parm
-   integer (kind=8) :: specific__nint_8_16
-   specific__nint_8_16 = nint (parm)
+   integer (kind=8) :: _gfortran_specific__nint_8_16
+   _gfortran_specific__nint_8_16 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_4 (parm)
+elemental function _gfortran_specific__nint_16_4 (parm)
     real (kind=4) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_4
-   specific__nint_16_4 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_4
+   _gfortran_specific__nint_16_4 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_8 (parm)
+elemental function _gfortran_specific__nint_16_8 (parm)
     real (kind=8) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_8
-   specific__nint_16_8 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_8
+   _gfortran_specific__nint_16_8 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_10 (parm)
+elemental function _gfortran_specific__nint_16_10 (parm)
     real (kind=10) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_10
-   specific__nint_16_10 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_10
+   _gfortran_specific__nint_16_10 = nint (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-elemental function specific__nint_16_16 (parm)
+elemental function _gfortran_specific__nint_16_16 (parm)
     real (kind=16) , intent (in) :: parm
-   integer (kind=16) :: specific__nint_16_16
-   specific__nint_16_16 = nint (parm)
+   integer (kind=16) :: _gfortran_specific__nint_16_16
+   _gfortran_specific__nint_16_16 = nint (parm)
  end function
  #endif
  
  
  
  #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__char_1_i4 (parm)
+elemental function _gfortran_specific__char_1_i4 (parm)
     integer (kind=4) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i4
-   specific__char_1_i4 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i4
+   _gfortran_specific__char_1_i4 = char (parm, kind=1)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__char_1_i8 (parm)
+elemental function _gfortran_specific__char_1_i8 (parm)
     integer (kind=8) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i8
-   specific__char_1_i8 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i8
+   _gfortran_specific__char_1_i8 = char (parm, kind=1)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__char_1_i16 (parm)
+elemental function _gfortran_specific__char_1_i16 (parm)
     integer (kind=16) , intent (in) :: parm
-   character (kind=1,len=1) :: specific__char_1_i16
-   specific__char_1_i16 = char (parm, kind=1)
+   character (kind=1,len=1) :: _gfortran_specific__char_1_i16
+   _gfortran_specific__char_1_i16 = char (parm, kind=1)
  end function
  #endif
  
  
  
  #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__len_1_i4 (parm)
+elemental function _gfortran_specific__len_1_i4 (parm)
     character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=4) :: specific__len_1_i4
-   specific__len_1_i4 = len (parm)
+   integer (kind=4) :: _gfortran_specific__len_1_i4
+   _gfortran_specific__len_1_i4 = len (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__len_1_i8 (parm)
+elemental function _gfortran_specific__len_1_i8 (parm)
     character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=8) :: specific__len_1_i8
-   specific__len_1_i8 = len (parm)
+   integer (kind=8) :: _gfortran_specific__len_1_i8
+   _gfortran_specific__len_1_i8 = len (parm)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__len_1_i16 (parm)
+elemental function _gfortran_specific__len_1_i16 (parm)
     character (kind=1,len=*) , intent (in) :: parm
-   integer (kind=16) :: specific__len_1_i16
-   specific__len_1_i16 = len (parm)
+   integer (kind=16) :: _gfortran_specific__len_1_i16
+   _gfortran_specific__len_1_i16 = len (parm)
  end function
  #endif
  
  
  
  #if defined (HAVE_GFC_INTEGER_4)
-elemental function specific__index_1_i4 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i4 (parm1, parm2)
     character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=4) :: specific__index_1_i4
-   specific__index_1_i4 = index (parm1, parm2)
+   integer (kind=4) :: _gfortran_specific__index_1_i4
+   _gfortran_specific__index_1_i4 = index (parm1, parm2)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_8)
-elemental function specific__index_1_i8 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i8 (parm1, parm2)
     character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=8) :: specific__index_1_i8
-   specific__index_1_i8 = index (parm1, parm2)
+   integer (kind=8) :: _gfortran_specific__index_1_i8
+   _gfortran_specific__index_1_i8 = index (parm1, parm2)
  end function
  #endif
  
  #if defined (HAVE_GFC_INTEGER_16)
-elemental function specific__index_1_i16 (parm1, parm2)
+elemental function _gfortran_specific__index_1_i16 (parm1, parm2)
     character (kind=1,len=*) , intent (in) :: parm1, parm2
-   integer (kind=16) :: specific__index_1_i16
-   specific__index_1_i16 = index (parm1, parm2)
+   integer (kind=16) :: _gfortran_specific__index_1_i16
+   _gfortran_specific__index_1_i16 = index (parm1, parm2)
  end function
  #endif
  
diff --git a/libgfortran/intrinsics/dprod_r8.f90 b/libgfortran/intrinsics/dprod_r8.f90

index 30110b079fac1cfcebea3ec8c90efd47f5225ece..44c63c41d56bd9cdcecc59b8f9ed62914c7797cf 100644 (file)
--- a/libgfortran/intrinsics/dprod_r8.f90
+++ b/libgfortran/intrinsics/dprod_r8.f90
@@ -19,9 +19,9 @@
  !Boston, MA 02110-1301, USA.
  
  
-elemental function specific__dprod_r8 (p1, p2)
+elemental function _gfortran_specific__dprod_r8 (p1, p2)
     real (kind=4), intent (in) :: p1, p2
-   real (kind=8) :: specific__dprod_r8
+   real (kind=8) :: _gfortran_specific__dprod_r8
  
-   specific__dprod_r8 = dprod (p1, p2)
+   _gfortran_specific__dprod_r8 = dprod (p1, p2)
  end function
diff --git a/libgfortran/intrinsics/f2c_specifics.F90 b/libgfortran/intrinsics/f2c_specifics.F90

index c3f906d6348bc997b20f561615dfbde276ef22a1..85b539e291213c33428cb1e510b29fd71a58db27 100644 (file)
--- a/libgfortran/intrinsics/f2c_specifics.F90
+++ b/libgfortran/intrinsics/f2c_specifics.F90
@@ -41,7 +41,7 @@
  
  ! one argument functions
  #define REAL_HEAD(NAME) \
-elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res);
+elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (parm) result(res);
  
  #define REAL_BODY(NAME) \
    REAL, intent (in) :: parm; \
@@ -50,7 +50,7 @@ elemental function f2c_specific__/**/NAME/**/_r4 (parm) result(res);
  end function
  
  #define COMPLEX_HEAD(NAME) \
-subroutine f2c_specific__/**/NAME/**/_c4 (res, parm);
+subroutine _gfortran_f2c_specific__/**/NAME/**/_c4 (res, parm);
  
  #define COMPLEX_BODY(NAME) \
    COMPLEX, intent (in) :: parm; \
@@ -59,7 +59,7 @@ subroutine f2c_specific__/**/NAME/**/_c4 (res, parm);
  end subroutine
  
  #define DCOMPLEX_HEAD(NAME) \
-subroutine f2c_specific__/**/NAME/**/_c8 (res, parm);
+subroutine _gfortran_f2c_specific__/**/NAME/**/_c8 (res, parm);
  
  #define DCOMPLEX_BODY(NAME) \
    DOUBLE COMPLEX, intent (in) :: parm; \
@@ -71,7 +71,7 @@ REAL_HEAD(abs)
  REAL_BODY(abs)
  
  ! abs is special in that the result is real
-elemental function f2c_specific__abs_c4 (parm) result (res)
+elemental function _gfortran_f2c_specific__abs_c4 (parm) result (res)
    COMPLEX, intent(in) :: parm
    DOUBLE PRECISION :: res
    res = abs(parm)
@@ -79,16 +79,16 @@ end function
  
  
  ! aimag is special in that the result is real
-elemental function f2c_specific__aimag_c4 (parm)
+elemental function _gfortran_f2c_specific__aimag_c4 (parm)
    complex(kind=4), intent(in) :: parm
-  double precision :: f2c_specific__aimag_c4
-  f2c_specific__aimag_c4 = aimag(parm)
+  double precision :: _gfortran_f2c_specific__aimag_c4
+  _gfortran_f2c_specific__aimag_c4 = aimag(parm)
  end function
  
-elemental function f2c_specific__aimag_c8 (parm)
+elemental function _gfortran_f2c_specific__aimag_c8 (parm)
    complex(kind=8), intent(in) :: parm
-  double precision :: f2c_specific__aimag_c8
-  f2c_specific__aimag_c8 = aimag(parm)
+  double precision :: _gfortran_f2c_specific__aimag_c8
+  _gfortran_f2c_specific__aimag_c8 = aimag(parm)
  end function
  
  
@@ -168,7 +168,7 @@ REAL_BODY(anint)
  
  ! two argument functions
  #define REAL2_HEAD(NAME) \
-elemental function f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res);
+elemental function _gfortran_f2c_specific__/**/NAME/**/_r4 (p1, p2) result(res);
  
  #define REAL2_BODY(NAME) \
    REAL, intent (in) :: p1, p2; \
@@ -189,12 +189,12 @@ REAL2_HEAD(mod)
  REAL2_BODY(mod)
  
  ! conjg is special-cased because it is not suffixed _c4 but _4
-subroutine f2c_specific__conjg_4 (res, parm)
+subroutine _gfortran_f2c_specific__conjg_4 (res, parm)
    COMPLEX, intent (in) :: parm
    COMPLEX, intent (out) :: res
    res = conjg (parm)
  end subroutine
-subroutine f2c_specific__conjg_8 (res, parm)
+subroutine _gfortran_f2c_specific__conjg_8 (res, parm)
    DOUBLE COMPLEX, intent (in) :: parm
    DOUBLE COMPLEX, intent (out) :: res
    res = conjg (parm)
diff --git a/libgfortran/intrinsics/selected_int_kind.f90 b/libgfortran/intrinsics/selected_int_kind.f90

index 80bc25b00bc4b80dafe6654dedf9afad1645e223..bcb6759e769a9d877c2dcd6c0b37a2be964ba948 100644 (file)
--- a/libgfortran/intrinsics/selected_int_kind.f90
+++ b/libgfortran/intrinsics/selected_int_kind.f90
@@ -19,10 +19,10 @@
  !Boston, MA 02110-1301, USA.
  !
  
-function selected_int_kind (r)
+function _gfortran_selected_int_kind (r)
    implicit none
    integer, intent (in) :: r
-  integer :: selected_int_kind
+  integer :: _gfortran_selected_int_kind
    integer :: i
    ! Integer kind_range table
    type :: int_info
@@ -34,10 +34,10 @@ function selected_int_kind (r)
  
    do i = 1, c
      if (r <= int_infos (i) % range) then
-      selected_int_kind = int_infos (i) % kind
+      _gfortran_selected_int_kind = int_infos (i) % kind
        return
      end if
    end do
-  selected_int_kind = -1
+  _gfortran_selected_int_kind = -1
    return
  end function
diff --git a/libgfortran/intrinsics/selected_real_kind.f90 b/libgfortran/intrinsics/selected_real_kind.f90

index 4cc2a0992feca593033d23f92a9fda7c2256a8c5..2ace5c0c4d20c203077fb70ef754c3a871e6cdea 100644 (file)
--- a/libgfortran/intrinsics/selected_real_kind.f90
+++ b/libgfortran/intrinsics/selected_real_kind.f90
@@ -19,10 +19,10 @@
  !Boston, MA 02110-1301, USA.
  !
  
-function selected_real_kind (p, r)
+function _gfortran_selected_real_kind (p, r)
    implicit none
    integer, optional, intent (in) :: p, r
-  integer :: selected_real_kind
+  integer :: _gfortran_selected_real_kind
    integer :: i, p2, r2
    logical :: found_p, found_r
    ! Real kind_precision_range table
@@ -34,7 +34,7 @@ function selected_real_kind (p, r)
  
    include "selected_real_kind.inc"
  
-  selected_real_kind = 0
+  _gfortran_selected_real_kind = 0
    p2 = 0
    r2 = 0
    found_p = .false.
@@ -49,13 +49,13 @@ function selected_real_kind (p, r)
      if (p2 <= real_infos (i) % precision) found_p = .true.
      if (r2 <= real_infos (i) % range) found_r = .true.
      if (found_p .and. found_r) then
-      selected_real_kind = real_infos (i) % kind
+      _gfortran_selected_real_kind = real_infos (i) % kind
        return
      end if
    end do
  
-  if (.not. (found_p)) selected_real_kind = selected_real_kind - 1
-  if (.not. (found_r)) selected_real_kind = selected_real_kind - 2
+  if (.not. (found_p)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 1
+  if (.not. (found_r)) _gfortran_selected_real_kind = _gfortran_selected_real_kind - 2
  
    return
  end function
diff --git a/libgfortran/m4/misc_specifics.m4 b/libgfortran/m4/misc_specifics.m4

index dff63d82eeac2037f418982781146539e7a261e4..3e40bf01784a17a0175c5eb734e9820aadb242a6 100644 (file)
--- a/libgfortran/m4/misc_specifics.m4
+++ b/libgfortran/m4/misc_specifics.m4
@@ -22,10 +22,10 @@ divert
  dnl   NINT specifics
  foreach(`ikind', `(4, 8, 16)', `foreach(`rkind', `(4, 8, 10, 16)', `
  `#if defined (HAVE_GFC_REAL_'rkind`) && defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__nint_`'ikind`_'rkind (parm)
+elemental function _gfortran_specific__nint_`'ikind`_'rkind (parm)
     real (kind=rkind) , intent (in) :: parm
-   integer (kind=ikind) :: specific__nint_`'ikind`_'rkind
-   specific__nint_`'ikind`_'rkind = nint (parm)
+   integer (kind=ikind) :: _gfortran_specific__nint_`'ikind`_'rkind
+   _gfortran_specific__nint_`'ikind`_'rkind = nint (parm)
  end function
  #endif
  ')')
@@ -33,10 +33,10 @@ end function
  dnl   CHAR specifics
  foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
  `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__char_`'ckind`_i'ikind (parm)
+elemental function _gfortran_specific__char_`'ckind`_i'ikind (parm)
     integer (kind=ikind) , intent (in) :: parm
-   character (kind=ckind,len=1) :: specific__char_`'ckind`_i'ikind
-   specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)'
+   character (kind=ckind,len=1) :: _gfortran_specific__char_`'ckind`_i'ikind
+   _gfortran_specific__char_`'ckind`_i'ikind` = char (parm, kind='ckind`)'
  end function
  #endif
  ')')
@@ -44,10 +44,10 @@ end function
  dnl   LEN specifics
  foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
  `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__len_`'ckind`_i'ikind (parm)
+elemental function _gfortran_specific__len_`'ckind`_i'ikind (parm)
     character (kind=ckind,len=*) , intent (in) :: parm
-   integer (kind=ikind) :: specific__len_`'ckind`_i'ikind
-   specific__len_`'ckind`_i'ikind` = len (parm)'
+   integer (kind=ikind) :: _gfortran_specific__len_`'ckind`_i'ikind
+   _gfortran_specific__len_`'ckind`_i'ikind` = len (parm)'
  end function
  #endif
  ')')
@@ -55,10 +55,10 @@ end function
  dnl   INDEX specifics
  foreach(`ckind', `(1)', `foreach(`ikind', `(4, 8, 16)', `
  `#if defined (HAVE_GFC_INTEGER_'ikind`)'
-elemental function specific__index_`'ckind`_i'ikind (parm1, parm2)
+elemental function _gfortran_specific__index_`'ckind`_i'ikind (parm1, parm2)
     character (kind=ckind,len=*) , intent (in) :: parm1, parm2
-   integer (kind=ikind) :: specific__index_`'ckind`_i'ikind
-   specific__index_`'ckind`_i'ikind` = index (parm1, parm2)'
+   integer (kind=ikind) :: _gfortran_specific__index_`'ckind`_i'ikind
+   _gfortran_specific__index_`'ckind`_i'ikind` = index (parm1, parm2)'
  end function
  #endif
  ')')
diff --git a/libgfortran/m4/specific.m4 b/libgfortran/m4/specific.m4

index c8c91520d604d61de46684aa3e757bcb0e8d03c9..ebc89839ad48a3ac2c274f8f7f33471ba337d51d 100644 (file)
--- a/libgfortran/m4/specific.m4
+++ b/libgfortran/m4/specific.m4
@@ -7,7 +7,7 @@ define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse(
  define(atype_name, get_typename(atype_letter,atype_kind))dnl
  define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl
  define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),ifelse(name,aimag,ifelse(atype_letter,c,r,atype_letter),atype_letter)),atype_kind))dnl
-define(function_name,ifelse(name,conjg,`specific__conjg_'atype_kind,`specific__'name`_'atype_code))dnl
+define(function_name,ifelse(name,conjg,`_gfortran_specific__conjg_'atype_kind,`_gfortran_specific__'name`_'atype_code))dnl
  
  define(type,ifelse(atype_letter,l,LOGICAL,ifelse(atype_letter,i,INTEGER,ifelse(atype_letter,r,REAL,ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl
  define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl
diff --git a/libgfortran/m4/specific2.m4 b/libgfortran/m4/specific2.m4

index fa26f397698215ed6b4554ca244903d5bb8c850f..d05e8db1435a621858ab393d41735a525a91b98c 100644 (file)
--- a/libgfortran/m4/specific2.m4
+++ b/libgfortran/m4/specific2.m4
@@ -6,7 +6,7 @@ define(get_typename2, `$1 (kind=$2)')dnl
  define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl
  define(atype_name, get_typename(atype_letter,atype_kind))dnl
  define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl
-define(function_name,`specific__'name`_'atype_code)dnl
+define(function_name,`_gfortran_specific__'name`_'atype_code)dnl
  
  define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl
author	Francois-Xavier Coudert <coudert@clipper.ens.fr>
	Sat, 20 Jan 2007 18:33:20 +0000 (19:33 +0100)
committer	François-Xavier Coudert <fxcoudert@gcc.gnu.org>
	Sat, 20 Jan 2007 18:33:20 +0000 (18:33 +0000)
gcc/fortran/ChangeLog		patch \| blob \| history
gcc/fortran/gfortran.h		patch \| blob \| history
gcc/fortran/lang.opt		patch \| blob \| history
gcc/fortran/match.c		patch \| blob \| history
gcc/fortran/options.c		patch \| blob \| history
gcc/fortran/symbol.c		patch \| blob \| history
gcc/fortran/trans-decl.c		patch \| blob \| history
libgfortran/ChangeLog		patch \| blob \| history
libgfortran/Makefile.am		patch \| blob \| history
libgfortran/Makefile.in		patch \| blob \| history
libgfortran/generated/_abs_c10.F90		patch \| blob \| history
libgfortran/generated/_abs_c16.F90		patch \| blob \| history
libgfortran/generated/_abs_c4.F90		patch \| blob \| history
libgfortran/generated/_abs_c8.F90		patch \| blob \| history
libgfortran/generated/_abs_i16.F90		patch \| blob \| history
libgfortran/generated/_abs_i4.F90		patch \| blob \| history
libgfortran/generated/_abs_i8.F90		patch \| blob \| history
libgfortran/generated/_abs_r10.F90		patch \| blob \| history
libgfortran/generated/_abs_r16.F90		patch \| blob \| history
libgfortran/generated/_abs_r4.F90		patch \| blob \| history
libgfortran/generated/_abs_r8.F90		patch \| blob \| history
libgfortran/generated/_acos_r10.F90		patch \| blob \| history
libgfortran/generated/_acos_r16.F90		patch \| blob \| history
libgfortran/generated/_acos_r4.F90		patch \| blob \| history
libgfortran/generated/_acos_r8.F90		patch \| blob \| history
libgfortran/generated/_acosh_r10.F90		patch \| blob \| history
libgfortran/generated/_acosh_r16.F90		patch \| blob \| history
libgfortran/generated/_acosh_r4.F90		patch \| blob \| history
libgfortran/generated/_acosh_r8.F90		patch \| blob \| history
libgfortran/generated/_aimag_c10.F90		patch \| blob \| history
libgfortran/generated/_aimag_c16.F90		patch \| blob \| history
libgfortran/generated/_aimag_c4.F90		patch \| blob \| history
libgfortran/generated/_aimag_c8.F90		patch \| blob \| history
libgfortran/generated/_aint_r10.F90		patch \| blob \| history
libgfortran/generated/_aint_r16.F90		patch \| blob \| history
libgfortran/generated/_aint_r4.F90		patch \| blob \| history
libgfortran/generated/_aint_r8.F90		patch \| blob \| history
libgfortran/generated/_anint_r10.F90		patch \| blob \| history
libgfortran/generated/_anint_r16.F90		patch \| blob \| history
libgfortran/generated/_anint_r4.F90		patch \| blob \| history
libgfortran/generated/_anint_r8.F90		patch \| blob \| history
libgfortran/generated/_asin_r10.F90		patch \| blob \| history
libgfortran/generated/_asin_r16.F90		patch \| blob \| history
libgfortran/generated/_asin_r4.F90		patch \| blob \| history
libgfortran/generated/_asin_r8.F90		patch \| blob \| history
libgfortran/generated/_asinh_r10.F90		patch \| blob \| history
libgfortran/generated/_asinh_r16.F90		patch \| blob \| history
libgfortran/generated/_asinh_r4.F90		patch \| blob \| history
libgfortran/generated/_asinh_r8.F90		patch \| blob \| history
libgfortran/generated/_atan2_r10.F90		patch \| blob \| history
libgfortran/generated/_atan2_r16.F90		patch \| blob \| history
libgfortran/generated/_atan2_r4.F90		patch \| blob \| history
libgfortran/generated/_atan2_r8.F90		patch \| blob \| history
libgfortran/generated/_atan_r10.F90		patch \| blob \| history
libgfortran/generated/_atan_r16.F90		patch \| blob \| history
libgfortran/generated/_atan_r4.F90		patch \| blob \| history
libgfortran/generated/_atan_r8.F90		patch \| blob \| history
libgfortran/generated/_atanh_r10.F90		patch \| blob \| history
libgfortran/generated/_atanh_r16.F90		patch \| blob \| history
libgfortran/generated/_atanh_r4.F90		patch \| blob \| history
libgfortran/generated/_atanh_r8.F90		patch \| blob \| history
libgfortran/generated/_conjg_c10.F90		patch \| blob \| history
libgfortran/generated/_conjg_c16.F90		patch \| blob \| history
libgfortran/generated/_conjg_c4.F90		patch \| blob \| history
libgfortran/generated/_conjg_c8.F90		patch \| blob \| history
libgfortran/generated/_cos_c10.F90		patch \| blob \| history
libgfortran/generated/_cos_c16.F90		patch \| blob \| history
libgfortran/generated/_cos_c4.F90		patch \| blob \| history
libgfortran/generated/_cos_c8.F90		patch \| blob \| history
libgfortran/generated/_cos_r10.F90		patch \| blob \| history
libgfortran/generated/_cos_r16.F90		patch \| blob \| history
libgfortran/generated/_cos_r4.F90		patch \| blob \| history
libgfortran/generated/_cos_r8.F90		patch \| blob \| history
libgfortran/generated/_cosh_r10.F90		patch \| blob \| history
libgfortran/generated/_cosh_r16.F90		patch \| blob \| history
libgfortran/generated/_cosh_r4.F90		patch \| blob \| history
libgfortran/generated/_cosh_r8.F90		patch \| blob \| history
libgfortran/generated/_dim_i16.F90		patch \| blob \| history
libgfortran/generated/_dim_i4.F90		patch \| blob \| history
libgfortran/generated/_dim_i8.F90		patch \| blob \| history
libgfortran/generated/_dim_r10.F90		patch \| blob \| history
libgfortran/generated/_dim_r16.F90		patch \| blob \| history
libgfortran/generated/_dim_r4.F90		patch \| blob \| history
libgfortran/generated/_dim_r8.F90		patch \| blob \| history
libgfortran/generated/_exp_c10.F90		patch \| blob \| history
libgfortran/generated/_exp_c16.F90		patch \| blob \| history
libgfortran/generated/_exp_c4.F90		patch \| blob \| history
libgfortran/generated/_exp_c8.F90		patch \| blob \| history
libgfortran/generated/_exp_r10.F90		patch \| blob \| history
libgfortran/generated/_exp_r16.F90		patch \| blob \| history
libgfortran/generated/_exp_r4.F90		patch \| blob \| history
libgfortran/generated/_exp_r8.F90		patch \| blob \| history
libgfortran/generated/_log10_r10.F90		patch \| blob \| history
libgfortran/generated/_log10_r16.F90		patch \| blob \| history
libgfortran/generated/_log10_r4.F90		patch \| blob \| history
libgfortran/generated/_log10_r8.F90		patch \| blob \| history
libgfortran/generated/_log_c10.F90		patch \| blob \| history
libgfortran/generated/_log_c16.F90		patch \| blob \| history
libgfortran/generated/_log_c4.F90		patch \| blob \| history
libgfortran/generated/_log_c8.F90		patch \| blob \| history
libgfortran/generated/_log_r10.F90		patch \| blob \| history
libgfortran/generated/_log_r16.F90		patch \| blob \| history
libgfortran/generated/_log_r4.F90		patch \| blob \| history
libgfortran/generated/_log_r8.F90		patch \| blob \| history
libgfortran/generated/_mod_i16.F90		patch \| blob \| history
libgfortran/generated/_mod_i4.F90		patch \| blob \| history
libgfortran/generated/_mod_i8.F90		patch \| blob \| history
libgfortran/generated/_mod_r10.F90		patch \| blob \| history
libgfortran/generated/_mod_r16.F90		patch \| blob \| history
libgfortran/generated/_mod_r4.F90		patch \| blob \| history
libgfortran/generated/_mod_r8.F90		patch \| blob \| history
libgfortran/generated/_sign_i16.F90		patch \| blob \| history
libgfortran/generated/_sign_i4.F90		patch \| blob \| history
libgfortran/generated/_sign_i8.F90		patch \| blob \| history
libgfortran/generated/_sign_r10.F90		patch \| blob \| history
libgfortran/generated/_sign_r16.F90		patch \| blob \| history
libgfortran/generated/_sign_r4.F90		patch \| blob \| history
libgfortran/generated/_sign_r8.F90		patch \| blob \| history
libgfortran/generated/_sin_c10.F90		patch \| blob \| history
libgfortran/generated/_sin_c16.F90		patch \| blob \| history
libgfortran/generated/_sin_c4.F90		patch \| blob \| history
libgfortran/generated/_sin_c8.F90		patch \| blob \| history
libgfortran/generated/_sin_r10.F90		patch \| blob \| history
libgfortran/generated/_sin_r16.F90		patch \| blob \| history
libgfortran/generated/_sin_r4.F90		patch \| blob \| history
libgfortran/generated/_sin_r8.F90		patch \| blob \| history
libgfortran/generated/_sinh_r10.F90		patch \| blob \| history
libgfortran/generated/_sinh_r16.F90		patch \| blob \| history
libgfortran/generated/_sinh_r4.F90		patch \| blob \| history
libgfortran/generated/_sinh_r8.F90		patch \| blob \| history
libgfortran/generated/_sqrt_c10.F90		patch \| blob \| history
libgfortran/generated/_sqrt_c16.F90		patch \| blob \| history
libgfortran/generated/_sqrt_c4.F90		patch \| blob \| history
libgfortran/generated/_sqrt_c8.F90		patch \| blob \| history
libgfortran/generated/_sqrt_r10.F90		patch \| blob \| history
libgfortran/generated/_sqrt_r16.F90		patch \| blob \| history
libgfortran/generated/_sqrt_r4.F90		patch \| blob \| history
libgfortran/generated/_sqrt_r8.F90		patch \| blob \| history
libgfortran/generated/_tan_r10.F90		patch \| blob \| history
libgfortran/generated/_tan_r16.F90		patch \| blob \| history
libgfortran/generated/_tan_r4.F90		patch \| blob \| history
libgfortran/generated/_tan_r8.F90		patch \| blob \| history
libgfortran/generated/_tanh_r10.F90		patch \| blob \| history
libgfortran/generated/_tanh_r16.F90		patch \| blob \| history
libgfortran/generated/_tanh_r4.F90		patch \| blob \| history
libgfortran/generated/_tanh_r8.F90		patch \| blob \| history
libgfortran/generated/misc_specifics.F90		patch \| blob \| history
libgfortran/intrinsics/dprod_r8.f90		patch \| blob \| history
libgfortran/intrinsics/f2c_specifics.F90		patch \| blob \| history
libgfortran/intrinsics/selected_int_kind.f90		patch \| blob \| history
libgfortran/intrinsics/selected_real_kind.f90		patch \| blob \| history
libgfortran/m4/misc_specifics.m4		patch \| blob \| history
libgfortran/m4/specific.m4		patch \| blob \| history
libgfortran/m4/specific2.m4		patch \| blob \| history