提交: 585716d6435014dfc493abcd08294cd9f02eee30 - sctk (git)

Superconducting Toolkit

Commit MetaInfo

• 修订版: 585716d6435014dfc493abcd08294cd9f02eee30 (tree)
• 时间: 2017-08-24 18:09:14
• 作者: paulatto <paulatto@c92e...>
• Commiter: paulatto

Log Message

Most likely harmless out of bounds when writing UPF file with < or > in some character field

git-svn-id: svn+ssh://qeforge.qe-forge.org/svnroot/q-e/trunk/espresso@13763 c92efa57-630b-4861-b058-cf58834340f0

更改概述

• modified: Modules/write_upf_v2.f90

差异

--- a/Modules/write_upf_v2.f90
+++ b/Modules/write_upf_v2.f90
@@ -659,6 +659,7 @@ CONTAINS
    disp = 0 
    DO i = 1,len(in)
       o = i + disp
+      IF(o>len(in)) EXIT
       IF ( in(i:i) == '<' .or. in(i:i) == '>' ) THEN
          out(o:o) = '/'
       ELSE IF (in(i:i) == '&') THEN