Update stdlib_stats_distribution_uniform.fypp

Author: Jim-215-Fisher

src/stdlib_stats_distribution_uniform.fypp

@@ -255,7 +255,7 @@ module stdlib_stats_distribution_uniform
                     if(bits_left < bits) exit L2
                     u = shiftr(u, bits)
                     nn = iand(u, mask)
-                    if(nn <= n) exit L1
+                    if(nn <= scale) exit L1
                     bits_left = bits_left - bits
                 end do L2
             end do L1