From 313a862e6224364ceb7ac8c6c010dba3e1eb9caf Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 23 Jun 2022 07:19:04 +0200
Subject: [PATCH] Set visibility of internal symbols to hidden

---
 lapack/trtri/trtri_L_parallel.c | 6 +++++-
 lapack/trtri/trtri_L_single.c   | 6 +++++-
 lapack/trtri/trtri_U_parallel.c | 6 +++++-
 lapack/trtri/trtri_U_single.c   | 6 +++++-
 4 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/lapack/trtri/trtri_L_parallel.c b/lapack/trtri/trtri_L_parallel.c
index fb8c8fc77..035b799ec 100644
--- a/lapack/trtri/trtri_L_parallel.c
+++ b/lapack/trtri/trtri_L_parallel.c
@@ -49,7 +49,11 @@
 #define TRSM	TRSM_RNLN
 #endif
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
 
   BLASLONG n, info;
   BLASLONG bk, i, blocking, start_i;
diff --git a/lapack/trtri/trtri_L_single.c b/lapack/trtri/trtri_L_single.c
index 3e4343060..284957692 100644
--- a/lapack/trtri/trtri_L_single.c
+++ b/lapack/trtri/trtri_L_single.c
@@ -51,7 +51,11 @@
 #endif
 
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG myid) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG myid) {
 
   BLASLONG j, n, lda;
   FLOAT *a;
diff --git a/lapack/trtri/trtri_U_parallel.c b/lapack/trtri/trtri_U_parallel.c
index 5287421d6..e4024c1bd 100644
--- a/lapack/trtri/trtri_U_parallel.c
+++ b/lapack/trtri/trtri_U_parallel.c
@@ -49,7 +49,11 @@
 #define TRSM	TRSM_RNUN
 #endif
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
 
   BLASLONG n, info;
   BLASLONG bk, i, blocking;
diff --git a/lapack/trtri/trtri_U_single.c b/lapack/trtri/trtri_U_single.c
index e4da5da59..b77b2e7e4 100644
--- a/lapack/trtri/trtri_U_single.c
+++ b/lapack/trtri/trtri_U_single.c
@@ -55,7 +55,11 @@
 #endif
 
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG myid) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG myid) {
 
   BLASLONG j, n, lda;
   FLOAT *a;