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
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
Build and regtested on x86-64-gnu-linux.
OK for the trunk?
Tobias
2013-04-02 Tobias Burnus bur...@net-b.de
PR fortran/56810
* io/list_read.c (check_type): Fix kind checking for COMPLEX.
2013-04-02 Tobias Burnus bur...@net-b.de
PR fortran/56810
* gfortran.dg/read_repeat_2.f90: New.