destroy pointer in test 12

jacobwilliams · Jun 1, 2024 · c1651cd · c1651cd
1 parent a9de08e
commit c1651cd
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/tests/jf_test_12.F90 b/src/tests/jf_test_12.F90
@@ -152,6 +152,8 @@ subroutine test_12(error_cnt)
 
     my_file = json_file(root,verbose=.true.,real_format='G')
 
+    call json%destroy(root)
+
     call my_file%update('array data.description',CK_'vector data',found=existed)
     call check_file_errors(existed)