From d7537326ea7f4bb7fb63979674ce9c26bd075c64 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 7 Jun 2019 15:48:52 +0100
Subject: [PATCH] Fix build error.

---
 base/tools/psb_cd_renum_block.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/tools/psb_cd_renum_block.F90 b/base/tools/psb_cd_renum_block.F90
index 3bd4971c..cc04de00 100644
--- a/base/tools/psb_cd_renum_block.F90
+++ b/base/tools/psb_cd_renum_block.F90
@@ -81,7 +81,7 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
   if (desc_in%is_ovl()) then
     write(0,*) 'Warning: descriptor with overlap, not going to clone into BLOCK'
   else
-    select type (desc_in%indxmap)
+    select type (idmapin => desc_in%indxmap)
       class is (psb_gen_block_map)
         call psb_erractionrestore(err_act)
         return