On Wed, Dec 12, 2018 at 12:06:12PM +0000, Mark Eggleston wrote:
>
> On 12/12/2018 11:52, Jakub Jelinek wrote:
> > What about:
> > integer(kind=2) :: a
> > a = -1
> > print *, transfer (1_2, 1_8), transfer (a, 1_8)
> > end
> > ?
>
> I assume you meant transfer (-1_2, 1_8), the result from gfortran is 65535
> for both transfers.
It doesn't really matter that much, the question is what is in the upper
bits and mainly a) what you get with the vendor compilers b) what you get
with your patch. Because by my reading if you use there 0x20, it would
print 2314885530818510847 or 2314885530818445313 or something similar.
>
> I'm about to build the compiler with
>
> memset (buffer, 0x20, buffer_size);
>
> instead of
>
> memset (buffer, (flag_dec_pad_with_spaces ? 0x20 : 0x0), buffer_size);
>
> and will check again, if necessary a padding variable can be used instead
> initially set to zero and changed to 0x20 when it is known that the source
> is character.
Jakub
