test/{test-foreign.l,mathtest.l}: ignore test-multiple-argument-passi…

…ng, test-float-test, test-double-test for :s390x and :riscv64. (random <float value>) in mathtest.l also skipped.

- DO NOT ADD COMMENT AFTER #:- line

test/mathtest.l

@@ -46,7 +46,7 @@
 
     ;; random
     (assert (v= #i(123456 789012) *random-state*) "initial *random-state*")
-#+(or :alpha :irix6 :word-size=64)
+#+(and (or :alpha :irix6 :word-size=64) (not (or :s390x :riscv64)))
     (progn
       (assert (= 0 (random 10)) "random 10 (1)")
       (assert (= 3 (random 10)) "random 10 (2)")
@@ -62,7 +62,7 @@
       (assert (= 1 (random 10)) "random 10 (5)"))
 
     (setq *random-state* #i(123456 789012))
-#+(or :alpha :irix6 :word-size=64)
+#+(and (or :alpha :irix6 :word-size=64) (not (or :s390x :riscv64)))
     (progn
       (assert (eps= 0.593532 (random 10.0) 0.01) "random 10.0 (1)")
       (assert (eps= 3.59535 (random 10.0) 0.01) "random 10.0 (2)")
@@ -82,7 +82,7 @@
     (assert (v= (make-random-state nil) #i(123456 789012)) "(make-random-state nil)")
     (assert (v= (make-random-state #i(11111 22222)) #i(11111 22222)) "(make-random-state #i(11111 22222))")
     (assert (not (v= (make-random-state t) #i(123456 789012))) "(make-random-state t)")
-#+(or :alpha :irix6 :word-size=64)
+#+(and (or :alpha :irix6 :word-size=64) (not (or :s390x :riscv64)))
     (assert (= 0 (random 10 (make-random-state #i(123456 789012)))) "(random 10 (make-random-state #i(123456 789012)))")
 #-(or :alpha :irix6 :word-size=64)
     (assert (= 3 (random 10 (make-random-state #i(123456 789012)))) "(random 10 (make-random-state #i(123456 789012)))")

test/test-foreign.l

@@ -59,6 +59,7 @@
   (assert (= lisp::sizeof-* (get-size-eusinteger)))
   )
 
+#-(or :s390x :riscv64)
 (deftest test-multiple-arguments-passing
   (format t "~%multiple arguments passing~%")
   (format t "expected result~%")
@@ -171,6 +172,7 @@ test-testd = 1.23456
   (assert-read-line-string= f "0:        4 4")
   )
 
+#-(or :s390x :riscv64)
 (deftest test-eusinteger-test
   (format t "~%~%eusinteger-test~%")
   (format t "expected result~%")
@@ -190,6 +192,7 @@ test-testd = 1.23456
   (assert-read-line-string= f "0:        4 4")
   )
 
+#-(or :s390x :riscv64)
 (deftest test-float-test
   (format t "~%~%float-test~%")
   (format t "expected result~%")
@@ -227,6 +230,7 @@ test-testd = 1.23456
     (assert-read-line-eps= f 0.4))
   )
 
+#-(or :s390x :riscv64)
 (deftest test-double-test
   (format t "~%~%double-test~%")
   (format t "expected result~%")
@@ -266,6 +270,7 @@ test-testd = 1.23456
   )
   )
 
+#-(or :s390x :riscv64)
 (deftest test-eusfloat-test
   (format t "~%~%eusfloat-test~%")
   (format t "expected result~%")
@@ -460,6 +465,7 @@ test-testd = 1.23456
     )
   )
 
+#-(or :s390x :riscv64)
 (deftest test-return-float
   (format t "~%return float test~%")
   (format t "expected result~%")
@@ -472,6 +478,7 @@ test-testd = 1.23456
   (assert (eps= (ret-float 0.55555 133.0) (+ 0.55555 133.0)))
   )
 
+#-(or :s390x :riscv64)
 (deftest test-return-double
   (format t "~%return double test~%")
   (format t "expected result~%")
@@ -486,6 +493,7 @@ test-testd = 1.23456
   )
   )
 
+#-(or :s390x :riscv64)
 (deftest test-return-eusfloat
   (format t "~%return eusfloat test~%")
   (format t "expected result~%")