From 00deddac44df1657bd5b5c312273535cce5ee278 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Sat, 2 May 2020 23:17:53 +0200 Subject: [PATCH] initialization needed --- src/YAML_types.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/YAML_types.f90 b/src/YAML_types.f90 index f1af2f9cb..314c099f8 100644 --- a/src/YAML_types.f90 +++ b/src/YAML_types.f90 @@ -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