Check lengths of strings

Signed-off-by: Igor S. Gerasimov <[email protected]>
grimme-lab · Feb 10, 2025 · 1ce07ea · 1ce07ea
1 parent e127f1d
commit 1ce07ea
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/mctc/symbols.f90 b/src/mctc/symbols.f90
@@ -330,6 +330,10 @@ pure subroutine appendSymbol(list, nList, symbol)
    !> Elements symbol
    character(len=*), intent(in) :: symbol
 
+   if (len(symbol) > len(list)) then
+     error stop "Programmer's bug: len(symbol) > len(list)"
+   end if
+
    if (nList >= size(list)) then
       call resize(list)
    end if