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 ()
qt'>
<option value='grep'>log msg</option>
<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=b17567d45c03b7125bfe0255f4ac45d5db81a268'>root</a>/<a href='/guix/log/gnu?id=b17567d45c03b7125bfe0255f4ac45d5db81a268'>gnu</a>/<a href='/guix/log/gnu/build?id=b17567d45c03b7125bfe0255f4ac45d5db81a268'>build</a>/<a href='/guix/log/gnu/build/linux-modules.scm?id=b17567d45c03b7125bfe0255f4ac45d5db81a268'>linux-modules.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/gnu/build/linux-modules.scm?id=b17567d45c03b7125bfe0255f4ac45d5db81a268&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-10-15 02:00:00 +0200'>2023-10-15</span></td><td><a href='/guix/commit/gnu/build/linux-modules.scm?id=47e265af75141f6ffb557cf6c41a02a05ec82ccb'>linux-modules: Fix module dependency loading.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-modules.scm (dot-ko): Make COMPRESSION optional,
as expected by callers RECURSIVE-MODULE-DEPENDENCIES and
LOAD-LINUX-MODULE*.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-11-15 12:16:43 +0100'>2022-11-15</span></td><td><a href='/guix/commit/gnu/build/linux-modules.scm?id=afbd4d8470ad2e0b3bd5dd84b983bb343b4451f9'>linux-modules: Add 'load-pci-device-database'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-modules.scm (read-pci-device-database)
(load-pci-device-database): New procedures.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-11-15 12:16:42 +0100'>2022-11-15</span></td><td><a href='/guix/commit/gnu/build/linux-modules.scm?id=655fb8feacfcb16da784ad88201663bb6fb566e4'>linux-modules: Add support for listing PCI devices.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-modules.scm (&lt;pci-device&gt;): New record type.
(pci-device-class-predicate, storage-pci-device?, network-pci-device?)
(display-pci-device?, pci-devices?): New procedures.
</span></span></td><td>Ludovic Courtès</td></tr>