From bc74a17285ff7950751ebee75a901f9d8b6d4c20 Mon Sep 17 00:00:00 2001
From: nhorelik <nhorelik@mit.edu>
Date: Tue, 9 Apr 2013 15:23:13 -0400
Subject: [PATCH] fixed bug in recent xml comment whitespace fix

---
 src/xml-fortran/xmlparse.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xml-fortran/xmlparse.f90 b/src/xml-fortran/xmlparse.f90
index a3816943c..eb522078a 100644
--- a/src/xml-fortran/xmlparse.f90
+++ b/src/xml-fortran/xmlparse.f90
@@ -425,7 +425,7 @@ 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
+   else if (info%line(1:4) == '<!--' .and. kcend > 0) then
       kend = kcend-1
    else
       close_bracket = .true.