File 8747-crypto_SUITE-Remove-md5-ripemd160-and-sha-as-hash-fo.patch of Package erlang

From 7cabaecee8ccdb2c710d1bd5b1ed38bb79e3777d Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Tue, 13 Jun 2023 19:02:32 +0200
Subject: [PATCH 07/14] crypto_SUITE: Remove md5, ripemd160 and sha as hash for
 rsa sign if FIPS

---
 lib/crypto/test/crypto_SUITE.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl
index 968c8ce145..915a07a39e 100644
--- a/lib/crypto/test/crypto_SUITE.erl
+++ b/lib/crypto/test/crypto_SUITE.erl
@@ -2388,7 +2388,12 @@ rsa_sign_verify_tests(Config, Msg, Public, Private, PublicS, PrivateS, OptsToTry
         end.
 
 rsa_sign_verify_tests(Msg, Public, Private, PublicS, PrivateS, OptsToTry) ->
-    gen_rsa_sign_verify_tests([md5, ripemd160, sha, sha224, sha256], Msg, Public, Private,
+    Hashs0 = [sha224, sha256],
+    Hashs = case crypto:info_fips() of
+                enabled -> Hashs0;
+                _ -> [md5, ripemd160, sha | Hashs0]
+            end,
+    gen_rsa_sign_verify_tests(Hashs, Msg, Public, Private,
                               [undefined | OptsToTry]) ++
 	gen_rsa_sign_verify_tests([sha384, sha512], Msg, PublicS, PrivateS,
                                   [undefined | OptsToTry]).
-- 
2.35.3