Intel compiler complains about unset array

e2d9b343 · Andreas Marek · 26a4b3e7 · e2d9b343
Commit e2d9b343 authored Aug 01, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

test/shared/test_blacs_infrastructure.F90 test/shared/test_blacs_infrastructure.F90 +2 -0

No files found.
--- 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