dtype for character(kind=4) variables

[Thomas Koenig]

I wrote:

> in working on the macroization patch, I found that, for
> character(kind=4) array descriptors, we have
> GFC_DESCRIPTOR_SIZE(a)==1.

... times the length of the string, of course :-)