helpful error message in case of non-matching length

2024-02-04 07:42:00 +01:00 · 2024-02-04 07:42:00 +01:00 · d153925973
parent f3884d9291
commit d153925973
1 changed files with 2 additions and 0 deletions
--- a/src/types.f90
+++ b/src/types.f90
@ -1265,6 +1265,8 @@ function tDict_get_as1dReal_chunked(self,k,defaultVal,requiredChunks) result(nod
        nodeAs1dReal = node_outer%asReal()
      class is(tList)
        list_outer => self%get_list(k)
+        if (list_outer%length /= size(requiredChunks)) &
+          call IO_error(709,'list "'//list_outer%asFormattedStr()//'" is not of length '//IO_intAsStr(size(requiredChunks)))
        do i = 1, size(requiredChunks)
          node_inner => list_outer%get(i)
          select type(node_inner)