example 50 header print

jacobwilliams · Jun 1, 2024 · a9de08e · a9de08e
1 parent 56c6c24
commit a9de08e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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