Some updates based on Craig's review of #3023. Be a little more

defensive about the check of the flag value for the C-based keyvals.
We would never have had a problem because of the specific input data,
but being defensive is good (and it makes the code a little less
subtle / easier to read).

Also add in more comments about exactly what is going on, since this
is complicated stuff.  :-)

This commit was SVN r26000.

ompi/attribute/attribute.c

@@ -942,10 +942,11 @@ int ompi_attr_copy_all(ompi_attribute_type_t type, void *old_object,
 
         /* Hang this off the object's hash */
             
-        /* The "predefined" parameter to ompi_attr_set() is set to 1,
+        /* The OMPI_KEYVAL_F77 will be set if we called either an
-           so that no comparison is done for prdefined at all and it
+           MPI-1 style Fortran callback, or an MPI-2 style Fortran
-           just falls off the error checking loop in attr_set  */
+           callback.  If the callback set flag to .TRUE., then set
-
+           which style of Fortran callback was used on the new
+           attribute. */
         if (0 != (hash_value->attr_flag & OMPI_KEYVAL_F77) &&
             OMPI_FORTRAN_VALUE_TRUE == flag) {
             if (0 != (hash_value->attr_flag & OMPI_KEYVAL_F77_MPI1)) {
@@ -953,11 +954,29 @@ int ompi_attr_copy_all(ompi_attribute_type_t type, void *old_object,
             } else {
                 new_attr->av_set_from = OMPI_ATTRIBUTE_FORTRAN_MPI2;
             }
+            /* For convenience, set flag to 1 (instead of the
+               FORTRAN_VALUE_TRUE), so that we can just do a single
+               test, below. */
             flag = 1;
-        } else if (1 == flag) {
+        } 
+
+        /* Otherwise, if this is not a Fortran-created keyval (i.e.,
+           it's a C-based keyval -- see the comments at the beginning
+           of this file that explain OMPI_KEYVAL_* values), and it set
+           the flag to 1, then set that the new attribute was set via
+           C. */
+        else if (0 == (hash_value->attr_flag & OMPI_KEYVAL_F77) &&
+                 1 == flag) {
             new_attr->av_set_from = OMPI_ATTRIBUTE_C;
+        } 
+
+        /* Otherwise, just guarantee that flag is not 1 */
+        else {
+            flag = 0;
         }
 
+        /* If anything above set the new attribute value, then
+           actually set it on the new attribute hash. */
         if (1 == flag) {
             set_value(type, new_object, &newattr_hash, key, 
                       new_attr, true);