oceani: CloseParallel must mark anything not Pending as OutScope

[ocean] / csrc / oceani.mdc

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 7e1f2ac788117dddae2f9e2529e3d34ec8389aac..215a9a709bca6b4ebe568a0b6a1e3ca2e5e252d5 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -1176,9 +1176,11 @@ all pending-scope variables become conditionally scoped.
                                                 v->previous->scope == PendingScope)
                                                /* all previous branches used name */
                                                v->scope = PendingScope;
-                                       else if (v->type == Tlabel)     // UNTESTED
+                                       else if (v->type == Tlabel)
                                                /* Labels remain pending even when not used */
                                                v->scope = PendingScope;        // UNTESTED
+                                       else
+                                               v->scope = OutScope;
                                        if (ct == CloseElse) {
                                                /* All Pending variables with this name
                                                 * are now Conditional */