From a9de08ea006b6fb7edefaf32b1723c39527d9979 Mon Sep 17 00:00:00 2001 From: Jacob Williams Date: Sat, 1 Jun 2024 10:18:36 -0500 Subject: [PATCH] example 50 header print --- src/tests/jf_test_50.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/tests/jf_test_50.F90 b/src/tests/jf_test_50.F90 index f2742de9b..c5290db47 100644 --- a/src/tests/jf_test_50.F90 +++ b/src/tests/jf_test_50.F90 @@ -31,6 +31,12 @@ subroutine test_50(error_cnt) type(json_core) :: json type(json_value),pointer :: p + write(error_unit,'(A)') '' + write(error_unit,'(A)') '=================================' + write(error_unit,'(A)') ' EXAMPLE 50' + write(error_unit,'(A)') '=================================' + write(error_unit,'(A)') '' + call json%initialize(compress_vectors = .true.) ! so it will print each col on one line call json%create_object(p,'') !create the root