File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -94,7 +94,7 @@ module json_module
9494 character (len=* ),parameter ,public :: json_ext = ' .json' ! JSON file extension
9595
9696 character (len= 1 ),parameter :: space = ' '
97- character (len= 1 ),parameter :: newline = char ( 10 ) ! new line character
97+ character (len= 1 ),parameter :: newline = new_line(space) ! new line character
9898 character (len=* ),parameter :: real_fmt = ' (E30.16E3)' ! format for real numbers
9999 character (len=* ),parameter :: int_fmt = ' (I10)' ! format for integers
100100
@@ -2887,7 +2887,7 @@ subroutine json_parse(file, p)
28872887 !
28882888 if (exception_thrown) then
28892889 call get_current_line_from_file(iunit,line)
2890- if (istat== 0 ) err_message = err_message// new_line( ' ' ) // &
2890+ if (istat== 0 ) err_message = err_message// newline // &
28912891 ' Offending line: ' // trim (line)
28922892 if (allocated (line)) deallocate (line)
28932893 end if
You can’t perform that action at this time.
0 commit comments