From 1460b000d84086482242b3ffd2832a371d2063de Mon Sep 17 00:00:00 2001
From: Robert Kim Yates <rkyates@llnl.gov>
Date: Fri, 12 Jun 1998 17:47:21 -0500
Subject: [svn-r426] Fixed processing of debug string gotten from MPI_Info_get
 in H5F_mpio_open.

---
 src/H5Fmpio.c | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/H5Fmpio.c b/src/H5Fmpio.c
index 318493c..d568d26 100644
--- a/src/H5Fmpio.c
+++ b/src/H5Fmpio.c
@@ -300,13 +300,18 @@ H5F_mpio_open(const char *name, const H5F_access_t *access_parms, uintn flags,
 #ifdef H5Fmpio_DEBUG
     /* Check for debug commands in the info parameter */
     {   char debug_str[128];
-        int infoerr, str_len, flag, i;
+        int infoerr, flag, i;
         if (access_parms->u.mpio.info) {
             infoerr = MPI_Info_get( access_parms->u.mpio.info,
                                     H5F_MPIO_DEBUG_KEY, 127, debug_str, &flag );
-            fprintf(stdout, "H5Fmpio debug flags=%s\n", debug_str );
-            for (i=0; i<str_len; ++i)
-                H5F_mpio_Debug[(int)debug_str[i]] = 1;
+            if (flag) {
+                fprintf(stdout, "H5Fmpio debug flags=%s\n", debug_str );
+                for (i=0;
+                     debug_str[i]/*end of string*/ && i<128/*just in case*/;
+                     ++i) {
+                    H5F_mpio_Debug[(int)debug_str[i]] = 1;
+                }
+            }
         }
     }
 #endif
-- 
cgit v0.12