Remove double-allocation that may lead to crash in some GNU builds

crest-lab · Aug 29, 2024 · 5ca82fe · 5ca82fe
1 parent 6712175
commit 5ca82fe
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/src/parsing/parse_xtbinput.f90 b/src/parsing/parse_xtbinput.f90
@@ -715,9 +715,6 @@ subroutine read_xtbdatablock(file,i,blk)
       call get_xtb_keyvalue(kvdum,rawline,io)
       if (io == 0) then
         call blk%addkv(kvdum)
-        if(.not.allocated(blk%kv_list(blk%nkv)%value_rawa))then
-           allocate(blk%kv_list(blk%nkv)%value_rawa, source=kvdum%value_rawa)  
-        endif
       end if
     end do