pure function funC_1(b) result(ret) real(dp), intent(in) :: b real(dp) :: ret ret = funC(b, 1.0_dp) end function funC_1