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 ()
n 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=8b5339acfe381dca887b38634dcfdecae738ce7b'>root</a>/<a href='/guix/log/gnu?id=8b5339acfe381dca887b38634dcfdecae738ce7b'>gnu</a>/<a href='/guix/log/gnu/packages?id=8b5339acfe381dca887b38634dcfdecae738ce7b'>packages</a>/<a href='/guix/log/gnu/packages/tls.scm?id=8b5339acfe381dca887b38634dcfdecae738ce7b'>tls.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/packages/tls.scm?id=8b5339acfe381dca887b38634dcfdecae738ce7b&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-04-16 17:21:04 -0400'>2021-04-16</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=e12210dc92098d8581cea3007d57dbb6be16bb41'>gnu: GnuTLS: Absorb grafted replacement.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-04-16 16:57:27 -0400'>2021-04-16</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=0cb4032f9a799e5b1a4f35b7a1881c1b69104466'>gnu: OpenSSL: Absorb grafted replacement.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-04-16 12:52:49 -0400'>2021-04-16</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=587510d7e7b1b30e020a2c87bf192857458f43b4'>gnu: certbot, python-acme: Update to 1.14.0.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-03-28 18:46:23 +0200'>2021-03-28</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=b30407b82f6ab6dab1e08cfd4a8e9eb0a8831eef'>gnu: gnutls: Fix typos in description.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-03-25 17:53:53 +0100'>2021-03-25</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=10cbf042e13c328559de3bfd8e42ceb8f8f51d10'>gnu: openssl: Update to 1.1.1k [security fixes].</a><span class='msg-avail'>...</span></td><td>Léo Le Bouter</td></tr>
<tr><td><span title='2021-03-14 16:33:12 -0400'>2021-03-14</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=b082ea9406f19f0d0c296227510256b87fe11e3c'>gnu: OpenSSL: Refer to the version number in a more robust way.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-03-13 04:58:12 -0500'>2021-03-13</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=74e2c0e00f58c8bf948f7dc7c5ae2876af910d5a'>gnu: gnutls: Fix CVE-2021-20231 and CVE-2021-20232.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2021-03-12 23:58:54 +0100'>2021-03-12</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=1b518888638dce0c44192e8c0bbcb40752d162b4'>gnu: Add s2n.</a><span class='msg-avail'>...</span></td><td>Greg Hogan</td></tr>
<tr><td><span title='2021-03-12 14:22:21 -0500'>2021-03-12</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=a39faf1abdac4ee518ed28bf6429e07eab0371ea'>gnu: OpenSSL: Fix version number in build configuration.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-03-11 21:41:47 -0500'>2021-03-11</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=c3a7537396f11af7dd04c294714eb20980946083'>gnu: certbot, python-acme: Update to 1.13.0.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-03-11 05:38:57 +0100'>2021-03-11</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=4a8b529ce15ddc69a9dd701e450fc85a0ed65910'>gnu: openssl: Update to 1.1.1j [security fixes].</a><span class='msg-avail'>...</span></td><td>Léo Le Bouter</td></tr>
<tr><td><span title='2021-03-03 12:08:26 -0500'>2021-03-03</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=1e1549a7a78e135bb16fed6fcc8bb0891f71ba7c'>gnu: certbot, python-acme: Update to 1.12.0.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-01-10 14:30:36 +0200'>2021-01-10</span></td><td><a href='/guix/commit/gnu/packages/tls.scm?id=6985a1acb3e9cc4cad8b6f63d77154842d25c929'>Merge branch 'master' into staging</a></td><td>Efraim Flashner</td></tr>