#if defined (HAVE_GFC_REAL_10)
#ifdef HAVE_TANHL
-elemental function specific__tanh_r10 (parm)
+elemental function _gfortran_specific__tanh_r10 (parm)
real (kind=10), intent (in) :: parm
- real (kind=10) :: specific__tanh_r10
+ real (kind=10) :: _gfortran_specific__tanh_r10
- specific__tanh_r10 = tanh (parm)
+ _gfortran_specific__tanh_r10 = tanh (parm)
end function
#endif