diff --git a/src/tests/jf_test_10.F90 b/src/tests/jf_test_10.F90 index a82b219846..785693f062 100644 --- a/src/tests/jf_test_10.F90 +++ b/src/tests/jf_test_10.F90 @@ -313,8 +313,10 @@ subroutine test_10(error_cnt) end if end if + nullify(p) ! p is just a pointer to f2 + write(error_unit,'(A)') 'json_create...' - write(error_unit,'(A)') 'json_create_logical...'; call json%destroy(p); call json%create_logical(p,.true.,'foo') + write(error_unit,'(A)') 'json_create_logical...'; call json%create_logical(p,.true.,'foo') write(error_unit,'(A)') 'json_create_integer...'; call json%destroy(p); call json%create_integer(p,1000_IK,'foo') write(error_unit,'(A)') 'json_create_real ...'; call json%destroy(p); call json%create_real (p,9.0_wp,'foo') write(error_unit,'(A)') 'json_create_string ...'; call json%destroy(p); call json%create_string (p,'foo','bar') @@ -330,8 +332,8 @@ subroutine test_10(error_cnt) !-------------------------------- !cleanup: - !call f%destroy() !WARNING: causing "pointer being freed was not allocated" errors.... need to investigate - !call f2%destroy() + call f%destroy() + call f2%destroy() end subroutine test_10