From ec822e64f9c1d1bf2a27072107f19341fa865d97 Mon Sep 17 00:00:00 2001
From: nhorelik <nhorelik@mit.edu>
Date: Mon, 8 Apr 2013 12:46:17 -0400
Subject: [PATCH] added compatibility for comments without whitespace around
 content

---
 src/xml-fortran/xmlparse.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/xml-fortran/xmlparse.f90 b/src/xml-fortran/xmlparse.f90
index 9498e8bab5..a3816943cd 100644
--- a/src/xml-fortran/xmlparse.f90
+++ b/src/xml-fortran/xmlparse.f90
@@ -371,6 +371,7 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
 
    integer         :: kspace
    integer         :: kend
+   integer         :: kcend
    integer         :: keq
    integer         :: kfirst
    integer         :: ksecond
@@ -405,6 +406,7 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
    close_bracket = .false.
    kspace        = index( info%line, ' ' )
    kend          = index( info%line, '>' )
+   kcend         = index( info%line, '-->' )
    do while ( kend <= 0 )
       read( info%lun, '(a)', iostat = ierr ) nextline
       call xml_remove_tabs_(nextline)
@@ -423,6 +425,8 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
    enddo
    if ( kend > kspace ) then
       kend = kspace
+   else if (info%line(1:4) == '<!--' .and. kend > kcend) then
+      kend = kcend-1
    else
       close_bracket = .true.
    endif