attempting to fix platform new line differences causing a unit test to fail.

Author: jacobwilliams

src/json_value_module.F90

@@ -8926,6 +8926,15 @@ subroutine annotate_invalid_json(json,iunit,str)
             line = CK_''
         end if
 
+        ! add a newline for the error display if necessary:
+        line = trim(line)
+        if (len(line)>0) then
+            i = len(line)
+            if (line(i:i)/=newline) line = line//newline
+        else
+            line = line//newline
+        end if
+
         !create the error message:
         if (allocated(json%err_message)) then
             json%err_message = json%err_message//newline
@@ -8935,7 +8944,7 @@ subroutine annotate_invalid_json(json,iunit,str)
         json%err_message = json%err_message//&
                            'line: '//trim(adjustl(line_str))//', '//&
                            'character: '//trim(adjustl(char_str))//newline//&
-                           trim(line)//newline//arrow_str
+                           line//arrow_str
 
         if (allocated(line)) deallocate(line)
 

src/tests/jf_test_06.F90

@@ -61,12 +61,10 @@ subroutine test_6(error_cnt)
 
             if (i==1) then
                 call json%check_for_errors(status_ok, error_msg=error_msg)
-
                 if (error_msg /= &
                         CK_'Error in parse_array: Unexpected character encountered when parsing array.'//newline//&
                         CK_'line: 13, character: 1'//newline//&
                         CK_'}'//newline//&
-                        ''//newline//&
                         '^') then
                     ! verify that the expected error string is present
                     write(error_unit,'(A)') 'Error: unexpected error message string: "'//error_msg//'"'