This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, Fortran] PR56810 - fix I/O READ of COMPLEX with repeat count
- From: Mikael Morin <mikael dot morin at sfr dot fr>
- To: Tobias Burnus <burnus at net-b dot de>
- Cc: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Thu, 04 Apr 2013 12:28:18 +0200
- Subject: Re: [Patch, Fortran] PR56810 - fix I/O READ of COMPLEX with repeat count
- References: <515B1336 dot 2070800 at net-b dot de> <515CACD3 dot 4060002 at sfr dot fr> <515CB380 dot 5000903 at net-b dot de>
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.