Minor update: deallocate device memory in tests.

LKedward · Apr 14, 2020 · b32ef9d · b32ef9d
1 parent 984cfc7
commit b32ef9d
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/test/testPinnedMemory.f90 b/test/testPinnedMemory.f90
@@ -92,6 +92,16 @@ program testPinnedMemory
 call fclTestAssertEqual(hostInt32_1,hostInt32_2,'hostInt32_1 == hostInt32_2 (1)')
 call fclTestAssertEqual(hostChar_1,hostChar_2,'hostChar_1 == hostChar_2 (1)')
 
+! --- Deallocate device memory ---
+call fclFreeBuffer(deviceInt32_1)
+call fclFreeBuffer(deviceInt32_2)
+call fclFreeBuffer(deviceReal32_1)
+call fclFreeBuffer(deviceReal32_2)
+call fclFreeBuffer(deviceReal64_1)
+call fclFreeBuffer(deviceReal64_2)
+call fclFreeBuffer(deviceBuffer_1)
+call fclFreeBuffer(deviceBuffer_2)
+
 ! --- Deallocate pinned memory ---
 call fclFreeHost(hostReal32_1)
 call fclFreeHost(hostReal32_2)

diff --git a/test/testSubBuffers.f90 b/test/testSubBuffers.f90
@@ -84,6 +84,15 @@ program testSubBuffers
 call fclTestAssertEqual(hostInt32_1,hostInt32_2,'hostInt32_1 == hostInt32_2')
 call fclTestAssertEqual(hostChar_1,hostChar_2,'hostChar_1 == hostChar_2')
 
+call fclFreeBuffer(deviceInt32_1)
+call fclFreeBuffer(deviceInt32_2)
+call fclFreeBuffer(deviceReal32_1)
+call fclFreeBuffer(deviceReal32_2)
+call fclFreeBuffer(deviceReal64_1)
+call fclFreeBuffer(deviceReal64_2)
+call fclFreeBuffer(deviceBuffer_1)
+call fclFreeBuffer(deviceBuffer_2)
+
 call fclTestFinish()
 
 end program testSubBuffers