]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/generated/_sign_r10.F90
gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
[thirdparty/gcc.git] / libgfortran / generated / _sign_r10.F90
index 002330f0d80c71972a7b04e7e953f4e1b48587e4..b165526b579aa1d913e7e84e1035f5f2be228e4e 100644 (file)
 
 
 
-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