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
94
94
character (len=* ),parameter ,public :: json_ext = ' .json' ! JSON file extension
95
95
96
96
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
98
98
character (len=* ),parameter :: real_fmt = ' (E30.16E3)' ! format for real numbers
99
99
character (len=* ),parameter :: int_fmt = ' (I10)' ! format for integers
100
100
@@ -2887,7 +2887,7 @@ subroutine json_parse(file, p)
2887
2887
!
2888
2888
if (exception_thrown) then
2889
2889
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 // &
2891
2891
' Offending line: ' // trim (line)
2892
2892
if (allocated (line)) deallocate (line)
2893
2893
end if
You can’t perform that action at this time.
0 commit comments