]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/generated/_atan2_r4.F90
gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
[thirdparty/gcc.git] / libgfortran / generated / _atan2_r4.F90
index 52ecf7917bab06fc1561e8367507e0891a735176..bfeb726ff1c7bc2b251b6f062808ff026a39f0c1 100644 (file)
 
 #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