test: see which testset fails

Author: avik-pal

src/host/random.jl

@@ -96,8 +96,8 @@ function Random.randn!(rng::RNG, A::AnyGPUArray{T}) where T <: Number
     threads = (length(A) - 1) ÷ 2 + 1
     @kernel function randn!(a, randstates)
         i = @index(Global, Linear)
+        threadidx = @index(Local, Linear)
         idx = 2*(i - 1) + 1
-        threadidx = (i - 1) % length(randstates) + 1
         U1 = gpu_rand(T, threadidx, randstates)
         U2 = gpu_rand(T, threadidx, randstates)
         Z0 = sqrt(T(-2.0)*log(U1))*cos(T(2pi)*U2)

test/testsuite/random.jl

@@ -7,7 +7,7 @@
     cpu_rng = Random.default_rng()
 
     @testset "rand" begin  # uniform
-        for T in eltypes, d in (10, (10, 10), (128, 128))
+        for T in eltypes, d in (10, (10,10))
             A = AT{T}(undef, d)
             B = copy(A)
             rand!(rng, A)
@@ -44,7 +44,7 @@
     @testset "randn" begin  # normally-distributed
         # XXX: randn calls sqrt, and Base's sqrt(::Complex) performs
         #      checked type conversions that throw boxed numbers.
-        for T in filter(isrealfloattype, eltypes), d in (2, (2,2))
+        for T in filter(isrealfloattype, eltypes), d in (2, (2, 2), (128, 128))
             A = AT{T}(undef, d)
             B = copy(A)
             randn!(rng, A)