From e8903bc28be6d0a9165f5e0279ef980f6f9fa791 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 21 Nov 2022 08:59:59 -0500
Subject: [PATCH] Fix VL(:) initialization when CHECK_=.false.

---
 base/tools/psb_cd_inloc.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90
index f8d609c4..e8b9578e 100644
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@@ -275,6 +275,8 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
 
     if (debug_size) &
          & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu
+  else
+    nlu = loc_row
   end if
   call psb_nullify_desc(desc)
   if (do_timings) then