crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-26 21:25:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed bug in recent xml comment whitespace fix

Browse source
This commit is contained in:
nhorelik 2013-04-09 15:23:13 -04:00
parent afdb50a0d2
commit bc74a17285
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/xml-fortran/xmlparse.f90
View file

@ -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.