andreww · andreww · Apr 3, 2018 · Jan 8, 2017
diff --git a/sax/m_sax_xml_source.F90 b/sax/m_sax_xml_source.F90
@@ -205,6 +205,11 @@ subroutine parse_declaration(f, eof, es, standalone)
     ch => null()
     do
       c = get_char_from_file(f, XML1_0, eof, es)
+      ! If we don't have a sensible character it may be a Byte 
+      ! Order Mark. Skip it and carry on to see if we can still
+      ! read.
+      if (parse_state == XD_0 .and. c /= '<') &
+        cycle
       if (eof) then
         call rewind_source(f)
         exit

diff --git a/sax/test/test_sax_fsm_1_utf16_bom.in b/sax/test/test_sax_fsm_1_utf16_bom.in
diff --git a/sax/test/test_sax_fsm_1_utf8_bom.in b/sax/test/test_sax_fsm_1_utf8_bom.in
@@ -0,0 +1,2 @@
+<?xml version="1.1" standalone="yes"?>
+<a/>
diff --git a/sax/test/test_sax_parser_6.f90 b/sax/test/test_sax_parser_6.f90
@@ -0,0 +1,15 @@
+program test_sax_reader
+
+  use FoX_sax
+  type(xml_t) :: xp
+  integer :: iostat
+
+  call open_xml_file(xp, "test_sax_fsm_1_utf8_bom.in", iostat)
+
+  write(*,'(i1)') iostat
+
+  call parse(xp)
+
+  call close_xml_t(xp) 
+
+end program test_sax_reader
diff --git a/sax/test/test_sax_parser_6.out b/sax/test/test_sax_parser_6.out
@@ -0,0 +1 @@
+0
diff --git a/sax/test/test_sax_parser_7.f90 b/sax/test/test_sax_parser_7.f90
@@ -0,0 +1,15 @@
+program test_sax_reader
+
+  use FoX_sax
+  type(xml_t) :: xp
+  integer :: iostat
+
+  call open_xml_file(xp, "test_sax_fsm_1_utf16_bom.in", iostat)
+
+  write(*,'(i1)') iostat
+
+  call parse(xp)
+
+  call close_xml_t(xp) 
+
+end program test_sax_reader
diff --git a/sax/test/test_sax_parser_7.out b/sax/test/test_sax_parser_7.out
@@ -0,0 +1,3 @@
+0
+ERROR(FoX)
+Illegal character found at test_sax_fsm_1_utf16_bom.in:0:3 Error parsing XML declaration (Possibly near line=0 col=3)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		0
		ERROR(FoX)
		Illegal character found at test_sax_fsm_1_utf16_bom.in:0:3 Error parsing XML declaration (Possibly near line=0 col=3)