diff --git a/src/testdrive.F90 b/src/testdrive.F90
index f84bb85..97d8ac7 100644
--- a/src/testdrive.F90
+++ b/src/testdrive.F90
@@ -279,6 +279,11 @@ end subroutine test_interface
     !> Whether test is supposed to fail
     logical :: should_fail = .false.
 
+  contains
+
+    !> Deallocate unittest's internal data
+    final :: destroy_unittest
+
   end type unittest_type
 
 
@@ -303,6 +308,11 @@ end subroutine collect_interface
     !> Entry point of the test
     procedure(collect_interface), pointer, nopass :: collect => null()
 
+  contains
+
+    !> Deallocate testsuite's internal data
+    final :: destroy_testsuite
+
   end type testsuite_type
 
 
@@ -334,6 +344,8 @@ end subroutine collect_interface
     integer :: skipped = 0
     !> Running time
     real(sp) :: time = 0.0_sp
+  contains
+    final :: destroy_junit_output
   end type junit_output
 
 
@@ -764,6 +776,22 @@ subroutine junit_write(junit)
   end subroutine junit_write
 
 
+  !> deallocate internal data of junit_output
+  subroutine destroy_junit_output(self)
+
+    !> JUnit output
+    type(junit_output), intent(inout) :: self
+
+    if (allocated(self%xml_start)) deallocate(self%xml_start)
+    if (allocated(self%xml_block)) deallocate(self%xml_block)
+    if (allocated(self%xml_final)) deallocate(self%xml_final)
+    if (allocated(self%hostname)) deallocate(self%hostname)
+    if (allocated(self%package)) deallocate(self%package)
+    if (allocated(self%testsuite)) deallocate(self%testsuite)
+
+  end subroutine destroy_junit_output
+
+
   !> Create ISO 8601 formatted timestamp
   function get_timestamp() result(timestamp)
 
@@ -853,6 +881,18 @@ function new_unittest(name, test, should_fail) result(self)
   end function new_unittest
 
 
+  !> Finalize unit test
+  subroutine destroy_unittest(self)
+
+    !> unittest to destroy
+    type(unittest_type), intent(inout) :: self
+
+    if (allocated(self%name)) deallocate(self%name)
+    self%test => null()
+
+  end subroutine destroy_unittest
+
+
   !> Register a new testsuite
   function new_testsuite(name, collect) result(self)
 
@@ -871,6 +911,18 @@ function new_testsuite(name, collect) result(self)
   end function new_testsuite
 
 
+  !> Finalize testsuite
+  subroutine destroy_testsuite(self)
+
+    !> testsuite to destroy
+    type(testsuite_type), intent(inout) :: self
+
+    if (allocated(self%name)) deallocate(self%name)
+    self%collect => null()
+
+  end subroutine destroy_testsuite
+
+
   subroutine check_stat(error, stat, message, more)
 
     !> Error handling