From db3d952520ccbcbcab520856b4f50a73bf9e2278 Mon Sep 17 00:00:00 2001
From: JulienRemy <julien.remy@grenoble-inp.org>
Date: Mon, 15 Jul 2024 17:08:29 +0200
Subject: [PATCH] #2642 Add missing `class` keyword in Fortran backend.

---
 src/psyclone/psyir/backend/fortran.py | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/psyclone/psyir/backend/fortran.py b/src/psyclone/psyir/backend/fortran.py
index 3a1514131d..34a705588d 100644
--- 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