#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