From 703684e0717659870ecf5a16e6a9f153f399694f Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Thu, 11 Nov 2010 20:06:29 +0000
Subject: [PATCH] Output the mca params for debug purposes

This commit was SVN r24042.
---
 orte/test/system/orte_nodename.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/orte/test/system/orte_nodename.c b/orte/test/system/orte_nodename.c
index 3b8c7c465c..68d813e39d 100644
--- a/orte/test/system/orte_nodename.c
+++ b/orte/test/system/orte_nodename.c
@@ -10,6 +10,7 @@
 
 #include "opal/class/opal_list.h"
 #include "opal/mca/sysinfo/sysinfo_types.h"
+#include "opal/util/opal_environ.h"
 
 #include "orte/util/proc_info.h"
 #include "orte/util/name_fns.h"
@@ -19,7 +20,7 @@
 
 int main(int argc, char* argv[])
 {
-    int rc, restart=-1;
+    int rc, i, restart=-1;
     char hostname[512], *rstrt;
     pid_t pid;
     char *keys[] = {
@@ -60,6 +61,13 @@ int main(int argc, char* argv[])
 
         }
     }
+
+    for (i=0; NULL != environ[i]; i++) {
+        if (0 == strncmp(environ[i], "OMPI_MCA", strlen("OMPI_MCA"))) {
+            printf("\t%s\n", environ[i]);
+        }
+    }
+
     orte_finalize();
     return 0;
 }