return empty string array if nothing found (plasticity detect changes failed)

2018-06-02 23:10:38 +02:00 · 2018-06-02 23:10:38 +02:00 · 1e5106f601
parent 5ec98f65b4
commit 1e5106f601
1 changed files with 4 additions and 1 deletions
--- a/src/list.f90
+++ b/src/list.f90
@ -408,7 +408,10 @@ end function getFloatArray

      tmp => this%next
      do 
-        if (.not. associated(tmp)) exit
+        if (.not. associated(tmp)) then
+          if (.not. allocated(getStrings)) allocate(getStrings(0),source=str)
+          exit
+        endif
        if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then
          if (tmp%string%pos(1) < 2) print*, "NOT WORKKING"
          str = IO_StringValue(tmp%string%val,tmp%string%pos,2)