initialization needed
This commit is contained in:
parent
47f85402c4
commit
00deddac44
|
@ -763,6 +763,7 @@ recursive function tList_asFormattedString(self,indent) result(str)
|
|||
character(len=:), allocatable :: str
|
||||
integer :: i, indent_
|
||||
|
||||
str = ''
|
||||
if(present(indent)) then
|
||||
indent_ = indent
|
||||
else
|
||||
|
@ -791,6 +792,7 @@ recursive function tDict_asFormattedString(self,indent) result(str)
|
|||
character(len=:), allocatable :: str
|
||||
integer :: i, indent_
|
||||
|
||||
str = ''
|
||||
if(present(indent)) then
|
||||
indent_ = indent
|
||||
else
|
||||
|
|
Loading…
Reference in New Issue