fix: Fix a bug with the allocator.

xcompact3d · Nov 22, 2023 · 814def3 · 814def3
1 parent 1abf4ee
commit 814def3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/allocator.f90 b/src/allocator.f90
@@ -53,7 +53,7 @@ module m_allocator
      !! `refcount` that counts the number of references to this
      !! field.  User code is currently responsible for incrementing
      !! the reference count.
-      type(field_t), pointer :: next
+      class(field_t), pointer :: next
       real(dp), allocatable :: data(:, :, :)
       integer :: refcount = 0
       integer :: id !! An integer identifying the memory block.