(j3.2006) Problem with default expressions for kind type parameters?

[Rafik Zurob]

Rafik Zurob wrote on 21/09/2012 09:52:04 PM:

> One might write:
> 
> type dt(k)
>   integer, kind :: k = 4
>   real(k) s
>   real(k*2) d
> end type
> type(dt)              d1 ! real(4), real(8)
> type(dt(4))           d2 ! real(4), real(8)
> type(dt(8))           d3 ! real(8), real(16)
> 
> I think you'd agree that d3%d should be 8.

And of course I managed to have a typo in the most important sentence in 
my reply.  At least the comment was correct :-).  The above should say:

I think you'd agree that d3%d should be 16.

Regards

Rafik