Add enums to module scope symtab

sethrj · sethrj · commit d6077f718366 · 2022-06-03T07:55:06.000-04:00
diff --git a/Source/Modules/fortran.cxx b/Source/Modules/fortran.cxx
@@ -2869,7 +2869,8 @@ int FORTRAN::enumDeclaration(Node *n) {
   }
 
   if (!fsymtab) {
-    fsymtab = NewHash();
+    // Use module scope
+    fsymtab = this->symbolScopeLookup(NULL);
   }
   if (fsymname) {
     String *lower_fsymname = Swig_string_lower(fsymname);

Original file line number	Diff line number	Diff line change
`@@ -2869,7 +2869,8 @@ int FORTRAN::enumDeclaration(Node *n) {`
`2869`	`2869`	`}`
`2870`	`2870`
`2871`	`2871`	`if (!fsymtab) {`
`2872`		`- fsymtab = NewHash();`
	`2872`	`+ // Use module scope`
	`2873`	`+ fsymtab = this->symbolScopeLookup(NULL);`
`2873`	`2874`	`}`
`2874`	`2875`	`if (fsymname) {`
`2875`	`2876`	`String *lower_fsymname = Swig_string_lower(fsymname);`