Fixed bad class selection in the symba_tp spill implementation

MintonGroup · Aug 2, 2021 · c8b0db9 · c8b0db9
1 parent fb9449e
commit c8b0db9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -720,7 +720,7 @@ module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
       !> Spill all the common components
       associate(keeps => self)
          select type(discards)
-         class is (symba_pl)
+         class is (symba_tp)
             call util_spill(keeps%nplenc, discards%nplenc, lspill_list, ldestructive)
             call util_spill(keeps%levelg, discards%levelg, lspill_list, ldestructive)
             call util_spill(keeps%levelm, discards%levelm, lspill_list, ldestructive)