From e2d9b34317f130678245628e27fad1c2b5cd8e99 Mon Sep 17 00:00:00 2001
From: Andreas Marek <amarek@rzg.mpg.de>
Date: Tue, 1 Aug 2017 10:46:52 +0200
Subject: [PATCH] Intel compiler complains about unset array

---
 test/shared/test_blacs_infrastructure.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/shared/test_blacs_infrastructure.F90 b/test/shared/test_blacs_infrastructure.F90
index ac52dbbd..ab5c1c70 100644
--- a/test/shared/test_blacs_infrastructure.F90
+++ b/test/shared/test_blacs_infrastructure.F90
@@ -96,10 +96,12 @@ module test_blacs_infrastructure
                                        np_cols, &
                                        my_blacs_ctxt, info
       integer(kind=ik), intent(out)  :: na_rows, na_cols, sc_desc(1:9)
+
 #ifdef WITH_MPI
       integer(kind=ik), external       :: numroc
       integer(kind=ik)                 :: mpierr
 
+      sc_desc(:) = 0
       ! determine the neccessary size of the distributed matrices,
       ! we use the scalapack tools routine NUMROC
 
-- 
GitLab