From 1581b4989d0ea79c4c5ded657efb88fc7f9ab5da Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi <p.giannozzi@gmail.com>
Date: Sat, 9 Jul 2022 22:19:32 +0200
Subject: [PATCH] [skip-CI] FoX replacement not so smart

---
 upflib/dom.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/upflib/dom.f90 b/upflib/dom.f90
index 8965b4b45..b79dfebd6 100644
--- a/upflib/dom.f90
+++ b/upflib/dom.f90
@@ -661,7 +661,7 @@ scan: do i=la-l0+1,la
           if ( i1 > 0 ) then
              ! token found
              cvec(i)=root%data(i0:i0+i1-2)
-             i0=i0+i1
+             i0=i0+i1-1
           else if ( i1 == 0 .and. i0 < len_trim(root%data) ) then
              ! last token found
              cvec(i)=root%data(i0:)