fixed string writing issue.

jacobwilliams · jacobwilliams · commit 382b79ba88c1 · 2014-02-13T18:41:13.000-06:00
diff --git a/src/json_example.f90 b/src/json_example.f90
@@ -223,7 +223,7 @@ subroutine test_4()
     write(*,*) ''
     !write it to a string, and print to console:
     call json_print_to_string(p, string)
-    write(*,*) string
+    write(*,'(A)') string
     deallocate(string)  !cleanup
     
     !cleanup:
diff --git a/src/json_module.f90 b/src/json_module.f90
@@ -1808,11 +1808,8 @@ subroutine json_value_to_string(me,str)
 !  DESCRIPTION
 !    Print the JSON structure to an allocatable string.
 !
-!    WARNING: this routine seems to be introducing random line
-!      breaks to the string.  Haven't figured out why yet...
-!
 !  AUTHOR
-!    Jacob Williams : 2/12/2014
+!    Jacob Williams : 2/13/2014
 !
 !********************************************************************************
     implicit none

Original file line number	Diff line number	Diff line change
`@@ -1808,11 +1808,8 @@ subroutine json_value_to_string(me,str)`
`1808`	`1808`	`! DESCRIPTION`
`1809`	`1809`	`! Print the JSON structure to an allocatable string.`
`1810`	`1810`	`!`
`1811`		`-! WARNING: this routine seems to be introducing random line`
`1812`		`-! breaks to the string. Haven't figured out why yet...`
`1813`		`-!`
`1814`	`1811`	`! AUTHOR`
`1815`		`-! Jacob Williams : 2/12/2014`
	`1812`	`+! Jacob Williams : 2/13/2014`
`1816`	`1813`	`!`
`1817`	`1814`	`!********************************************************************************`
`1818`	`1815`	`implicit none`