Frontend: Force ProcedureSymbol for struct constructors

ecmwf-ifs · Nov 26, 2024 · 8a975bf · 8a975bf
1 parent 8ddfad2
commit 8a975bf
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/loki/frontend/fparser.py b/loki/frontend/fparser.py
@@ -2602,7 +2602,7 @@ def visit_Structure_Constructor(self, o, **kwargs):
 
         # `name` is a DerivedType but we represent a constructor call as InlineCall for
         # which we need ProcedureSymbol
-        name = sym.Variable(name=name.name, scope=scope)
+        name = sym.ProcedureSymbol(name=name.name, scope=scope)
 
         if o.children[1] is not None:
             arguments = self.visit(o.children[1], **kwargs)

diff --git a/loki/frontend/omni.py b/loki/frontend/omni.py
@@ -1253,10 +1253,12 @@ def visit_functionCall(self, o, **kwargs):
         return sym.InlineCall(name, parameters=args, kw_parameters=kw_args)
 
     def visit_FstructConstructor(self, o, **kwargs):
+        scope = kwargs['scope']
         _type = self.type_from_type_attrib(o.attrib['type'], **kwargs)
         assert isinstance(_type.dtype, DerivedType)
 
-        name = sym.Variable(name=_type.dtype.name)
+        # The constructor is represented as an InlineCall with a ProcedureSymbol
+        name = sym.ProcedureSymbol(name=_type.dtype.name, scope=scope)
         args = [self.visit(a, **kwargs) for a in o]
 
         # Separate keyword argument from positional arguments