fix a possiable memory leak

AnonMiraj · Jul 1, 2024 · 7c0f622 · 7c0f622
1 parent 592aa16
commit 7c0f622
Show file tree

Hide file tree

Showing 8 changed files with 8 additions and 0 deletions.
diff --git a/test/chess.f90 b/test/chess.f90
@@ -50,6 +50,7 @@ program chess_checker
     call svg_canva%save_to_file(checker,file_name)
     call bitmap_canva%init(HEIGHT,WIDTH)
     call bitmap_canva%save_to_file(checker,file_name)
+    call bitmap_canva%destroy()
 
     call test_both(file_name,bitmap_canva)
 

diff --git a/test/circ.f90 b/test/circ.f90
@@ -59,6 +59,7 @@ program circles_pattern
     call bitmap_canva%init(WIDTH,HEIGHT)
     call bitmap_canva%save_to_file(canva,file_name) 
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 contains
 

diff --git a/test/circle.f90 b/test/circle.f90
@@ -63,6 +63,7 @@ program circle_test
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(canva, file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 
 end program circle_test

diff --git a/test/drawing_test.f90 b/test/drawing_test.f90
@@ -116,6 +116,7 @@ program drawing_test_all
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(canva,file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 end program drawing_test_all
 
diff --git a/test/line.f90 b/test/line.f90
@@ -53,6 +53,7 @@ program radial_lines
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(radial_canvas, file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 contains
 

diff --git a/test/smile.f90 b/test/smile.f90
@@ -86,6 +86,7 @@ program smile
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(canva, file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 
 end program smile

diff --git a/test/triangle.f90 b/test/triangle.f90
@@ -65,6 +65,7 @@ program test_fig_draw_triangle
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(test_canvas, file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 end program test_fig_draw_triangle
 
diff --git a/test/triangle_pattern.f90 b/test/triangle_pattern.f90
@@ -88,6 +88,7 @@ program test_fig_fill_triangle
     call svg_canva%init(CANVAS_WIDTH, CANVAS_HEIGHT)
     call svg_canva%save_to_file(test_canvas, file_name)
 
+    call bitmap_canva%destroy()
     call test_both(file_name,bitmap_canva)
 contains 
     subroutine random_color(color)