From: Sébastien Villemot <sebastien@debian.org>
Date: Mon, 16 Aug 2021 17:45:15 +0000 (+0100)
Subject: Remove warning about OpenMP
X-Git-Tag: archive/raspbian/0.3.17+ds-3+rpi1~1^2~5
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=0d8e60c487ef852b7b1034d3aeb4c4869720d8d9;p=openblas.git

Remove warning about OpenMP

Forwarded: no
Last-Update: 2014-02-17

This warning is annoying when the library is built with pthreads.
See #684344
Last-Update: 2014-02-17
Gbp-Pq: Name remove-openmp-warning.patch
---

diff --git a/driver/others/blas_server.c b/driver/others/blas_server.c
index fa07a1e..75fbfa5 100644
--- a/driver/others/blas_server.c
+++ b/driver/others/blas_server.c
@@ -853,16 +853,6 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){
   fprintf(STDERR, "Exec_blas is called. Number of executing threads : %ld\n", num);
 #endif
 
-#ifdef __ELF__
-  if (omp_in_parallel && (num > 1)) {
-    if (omp_in_parallel() > 0) {
-      fprintf(stderr,
-	      "OpenBLAS Warning : Detect OpenMP Loop and this application may hang. "
-	      "Please rebuild the library with USE_OPENMP=1 option.\n");
-    }
-  }
-#endif
-
   if ((num > 1) && queue -> next) exec_blas_async(1, queue -> next);
 
 #ifdef TIMING_DEBUG