#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