[Patch, Fortran] PR56810 - fix I/O READ of COMPLEX with repeat count
Mikael Morin
mikael.morin@sfr.fr
Thu Apr 4 08:53:00 GMT 2013
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?
> + type_name (dtp->u.p.saved_type), kind,
> dtp->u.p.item_count);
> generate_error (&dtp->common, LIBERROR_READ_VALUE, message);
> return 1;
More information about the Gcc-patches
mailing list