remove unused variable.

Author: jacobwilliams

src/tests/jf_test_9.f90

@@ -68,7 +68,6 @@ subroutine test_9(error_cnt)
 
     type(json_file) :: f
     real :: tstart, tend
-    character(len=:),allocatable :: str
 
     error_cnt = 0
     call json_initialize()