-elemental function specific__sign_r10 (p1, p2)
+elemental function _gfortran_specific__sign_r10 (p1, p2)
real (kind=10), intent (in) :: p1, p2
- real (kind=10) :: specific__sign_r10
+ real (kind=10) :: _gfortran_specific__sign_r10
- specific__sign_r10 = sign (p1, p2)
+ _gfortran_specific__sign_r10 = sign (p1, p2)
end function