]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/generated/_atan2_r16.F90
gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
[thirdparty/gcc.git] / libgfortran / generated / _atan2_r16.F90
index f56aabef8e3804156f00e4d2cb9a3afe77c4254a..b2a6d60c0aad09c54d3ecfe378c00c8952ab64ee 100644 (file)
 
 #ifdef HAVE_ATAN2L
 
-elemental function specific__atan2_r16 (p1, p2)
+elemental function _gfortran_specific__atan2_r16 (p1, p2)
    real (kind=16), intent (in) :: p1, p2
-   real (kind=16) :: specific__atan2_r16
+   real (kind=16) :: _gfortran_specific__atan2_r16
 
-   specific__atan2_r16 = atan2 (p1, p2)
+   _gfortran_specific__atan2_r16 = atan2 (p1, p2)
 end function
 
 #endif