From c8b0db961c02cfc8613c9b728680f39137b6c369 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 2 Aug 2021 12:57:51 -0400 Subject: [PATCH] Fixed bad class selection in the symba_tp spill implementation --- src/symba/symba_util.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index 4c4b74476..19ac9cd3f 100644 --- 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)