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

[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?

> +		  type_name (dtp->u.p.saved_type), kind,
>  		  dtp->u.p.item_count);
>        generate_error (&dtp->common, LIBERROR_READ_VALUE, message);
>        return 1;