#ifdef HAVE_ATAN2
-elemental function specific__atan2_r8 (p1, p2)
+elemental function _gfortran_specific__atan2_r8 (p1, p2)
real (kind=8), intent (in) :: p1, p2
- real (kind=8) :: specific__atan2_r8
+ real (kind=8) :: _gfortran_specific__atan2_r8
- specific__atan2_r8 = atan2 (p1, p2)
+ _gfortran_specific__atan2_r8 = atan2 (p1, p2)
end function
#endif