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

@@ -37,7 +37,8 @@ program test_distribution_uniform
     contains
 
     subroutine test_shuffle
-        integer :: n(10), na(10) = [10, 6, 9, 2, 8, 1, 3, 5, 7, 4]
+        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,       &
                                  7.0, 6.0]
         complex :: z(10), za(10) = [(8.0, 8.0), (7.0, 7.0), (4.0, 4.0),           &