#2642 Add missing class keyword in Fortran backend.

stfc · Jul 15, 2024 · db3d952 · db3d952
1 parent f3bb061
commit db3d952
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/psyclone/psyir/backend/fortran.py b/src/psyclone/psyir/backend/fortran.py
@@ -122,6 +122,8 @@ def gen_datatype(datatype, name):
     '''
     if isinstance(datatype, DataTypeSymbol):
         # Symbol is of derived type
+        if datatype.is_class:
+            return f"class({datatype.name})"
         return f"type({datatype.name})"
 
     if (isinstance(datatype, ArrayType) and