Do not attempt to dlopen PIE objects, which was disallowed with glibc 2.30.

https://gitlab.haskell.org/ghc/ghc/issues/17952
https://sourceware.org/bugzilla/show_bug.cgi?id=24323

Patch submitted upstream:
https://gitlab.haskell.org/ghc/ghc/-/merge_requests/2947

diff --git a/testsuite/tests/dynlibs/Makefile b/testsuite/tests/dynlibs/Makefile
--- a/testsuite/tests/dynlibs/Makefile
+++ b/testsuite/tests/dynlibs/Makefile
@@ -60,6 +60,4 @@ T5373:
 .PHONY: T13702
 T13702:
 	'$(TEST_HC)' -v0 -dynamic -rdynamic -fPIC -pie T13702.hs
-	'$(TEST_HC)' -v0 -dynamic T13702a.hs
-	./T13702  # first make sure executable itself works
-	./T13702a # then try dynamically loading it as library
+	./T13702
diff --git a/testsuite/tests/dynlibs/T13702.hs b/testsuite/tests/dynlibs/T13702.hs
--- a/testsuite/tests/dynlibs/T13702.hs
+++ b/testsuite/tests/dynlibs/T13702.hs
@@ -2,8 +2,3 @@
 
 main :: IO ()
 main = putStrLn "hello world"
-
-foreign export ccall "hello" hello :: IO ()
-
-hello :: IO ()
-hello = putStrLn "hello world again"
diff --git a/testsuite/tests/dynlibs/T13702.stdout b/testsuite/tests/dynlibs/T13702.stdout
--- a/testsuite/tests/dynlibs/T13702.stdout
+++ b/testsuite/tests/dynlibs/T13702.stdout
@@ -1,2 +1 @@
 hello world
-hello world again
diff --git a/testsuite/tests/dynlibs/T13702a.hs b/testsuite/tests/dynlibs/T13702a.hs
deleted file mode 100644
--- a/testsuite/tests/dynlibs/T13702a.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
-
-import Foreign
-import System.Posix.DynamicLinker
-
-main :: IO ()
-main = do
-    dl <- dlopen "./T13702" [RTLD_NOW]
-    funptr <- dlsym dl "hello" :: IO (FunPtr (IO ()))
-    mkAction funptr
-
-foreign import ccall "dynamic" mkAction :: FunPtr (IO ()) -> IO ()

<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b4a255c2fb0caa5cc73bf59541e138b7edcd0af9'>root</a>/<a href='/guix/log/tests?id=b4a255c2fb0caa5cc73bf59541e138b7edcd0af9'>tests</a>/<a href='/guix/log/tests/store-roots.scm?id=b4a255c2fb0caa5cc73bf59541e138b7edcd0af9'>store-roots.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/store-roots.scm?id=b4a255c2fb0caa5cc73bf59541e138b7edcd0af9&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-08-18 16:10:08 +0200'>2023-08-18</span></td><td><a href='/guix/commit/tests/store-roots.scm?id=4b1fdd44ed87dc07d23cc9313a8b6b14d0646923'>tests: store-roots: Remove bogus test.</a><span class='msg-avail'>...<span class='msg-tooltip'>This test was added in 1261ce15233cbf7e24de9959df86a23b46314a28 but it
proved to be bogus: &lt;https://issues.guix.gnu.org/64760&gt;.

* tests/store-roots.scm ("gc-roots, initial"): Remove.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-18 23:36:25 +0200'>2023-06-18</span></td><td><a href='/guix/commit/tests/store-roots.scm?id=1261ce15233cbf7e24de9959df86a23b46314a28'>store: Tolerate non-existent GC root directories.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/store/roots.scm (gc-roots): Wrap 'scandir*' call in 'catch'.
* tests/store-roots.scm ("gc-roots, initial"): New test.  Move
'open-connection' call below.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-10 17:09:47 +0200'>2019-04-10</span></td><td><a href='/guix/commit/tests/store-roots.scm?id=72eda0624be89ed18302fd7d7f22976071ab020c'>Add (guix store roots).</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/store/roots.scm, tests/store-roots.scm: New files.
* Makefile.am (STORE_MODULES): Add guix/store/roots.scm.
(SCM_TESTS): Add tests/store-roots.scm.
</span></span></td><td>Ludovic Courtès</td></tr>