Fix invalid call to free

ExtremeFLOW · Jan 23, 2025 · 7b29971 · 7b29971
1 parent 9002a6c
commit 7b29971
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/adt/htable_i8.f90 b/src/adt/htable_i8.f90
@@ -42,7 +42,7 @@ module subroutine htable_i8_init(this, size, data)
     class(*), intent(inout), optional :: data !< Data to associate with @a key
     integer :: i
 
-    call htable_free(this)
+    call this%free()
 
     if (size .lt. 4) then
        size = 4