better error handling

[mmh] / uip / pick.c

diff --git a/uip/pick.c b/uip/pick.c
index 5df2861..b0205fd 100644 (file)
--- a/uip/pick.c
+++ b/uip/pick.c
@@ -1261,8 +1261,12 @@ plist
 
                case LENERR2:
                case FMTERR2:
 
                case LENERR2:
                case FMTERR2:

-               case IOERR2:

                        advise(NULL, "format error in message %d", msgnum);
                        advise(NULL, "format error in message %d", msgnum);

+                       state = FLD2;
+                       continue;
+
+               case IOERR2:
+                       adios(EX_IOERR, "m_getfld2", "io error on message %d", msgnum);

                        /* FALL */
 
                case BODY2:
                        /* FALL */
 
                case BODY2: