mirror of https://gitlab.com/QEF/q-e.git
Most likely harmless out of bounds when writing UPF file with < or > in some character field
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13763 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
109bdaeb96
commit
19a025f631
|
@ -659,6 +659,7 @@ CONTAINS
|
||||||
disp = 0
|
disp = 0
|
||||||
DO i = 1,len(in)
|
DO i = 1,len(in)
|
||||||
o = i + disp
|
o = i + disp
|
||||||
|
IF(o>len(in)) EXIT
|
||||||
IF ( in(i:i) == '<' .or. in(i:i) == '>' ) THEN
|
IF ( in(i:i) == '<' .or. in(i:i) == '>' ) THEN
|
||||||
out(o:o) = '/'
|
out(o:o) = '/'
|
||||||
ELSE IF (in(i:i) == '&') THEN
|
ELSE IF (in(i:i) == '&') THEN
|
||||||
|
|
Loading…
Reference in New Issue