From: dpb on
Ron Shepard wrote:
> In article <htds7s$cm9$1(a)news.eternal-september.org>,
> dpb <none(a)non.net> wrote:
>
>>>>> precsion, I use:
>>>>> integer, parameter :: qp = &
>>>>> max(kind(0.0d0), selected_real_kind(precision(0.0d0)+1))
>>> Heavens, NO!!!
>> ...
>>
>> Ooops, sorry, I forgot the MAX() call...that does, indeed assume the
>> ordering; I was focused on thinking you were looking at the addition
>> operation.
>
> It does work "correctly" in the case that kind(0.0d0) is the largest
> precision supported. Where it might not work is when there is a higher
> precision that happens to have a smaller kind value.

Yes, simply to note the point that it isn't stated that KIND values and
associated precisions have a monotonic relationship (either increasing
or decreasing).

--