gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.

[thirdparty/gcc.git] / libgfortran / generated / _sqrt_r4.F90

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