Update src/tests/stats/test_distribution_uniform.fypp

Co-authored-by: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>

Author: Jim-215-Fisher

src/tests/stats/test_distribution_uniform.fypp

@@ -39,7 +39,8 @@ program test_distribution_uniform
     subroutine test_shuffle
         integer :: n(10)
         integer, paramter :: na(10) = [10, 6, 9, 2, 8, 1, 3, 5, 7, 4]
-        real :: x(10),  xa(10) = [5.0, 10.0, 9.0, 4.0, 3.0, 8.0, 2.0, 1.0,       &
+        real :: x(10)
+        real, parameter :: xa(10) = [5.0, 10.0, 9.0, 4.0, 3.0, 8.0, 2.0, 1.0,       &
                                  7.0, 6.0]
         complex :: z(10), za(10) = [(8.0, 8.0), (7.0, 7.0), (4.0, 4.0),           &
                                   (1.0, 1.0), (5.0, 5.0), (9.0, 9.0),           &