[Patch, Fortran] PR56810 - fix I/O READ of COMPLEX with repeat count

[Mikael Morin]

Le 04/04/2013 00:56, Tobias Burnus a écrit :
> Am 04.04.2013 00:27, schrieb Mikael Morin:
>> Le 02/04/2013 19:19, Tobias Burnus a écrit :
>>>       {
>>>         snprintf (message, MSGLEN,
>>>             "Read kind %d %s where kind %d is required for item %d",
>>> -          dtp->u.p.saved_length, type_name (dtp->u.p.saved_type), len,
>>> +          type == BT_COMPLEX ? dtp->u.p.saved_length / 2
>>> +                     : type == BT_COMPLEX,
>> thinko?
> 
> Rather "copy&pasto": Obviously, it should be ": dtp->u.p.saved_length,"
> in the last line.
> 
> OK with that changed (after regtesting)?
> 
Yes.