OSDN Git Service

(root) / pf3gnuchains / gcc-fork.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
* gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
[pf3gnuchains/gcc-fork.git] / libgfortran / generated / misc_specifics.F90
diff --git a/libgfortran/generated/misc_specifics.F90 b/libgfortran/generated/misc_specifics.F90
index a3b103b..29e999f 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
 
About OSDN
Find Software
Develop Software
Help