initialization needed

This commit is contained in:
Sharan Roongta 2020-05-02 23:17:53 +02:00
parent 47f85402c4
commit 00deddac44
1 changed files with 3 additions and 1 deletions

View File

@ -762,7 +762,8 @@ recursive function tList_asFormattedString(self,indent) result(str)
type (tItem), pointer :: item
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