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

[Tobias Burnus]

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

Tobias