Update test_distribution_uniform.fypp

Author: Jim-215-Fisher

src/tests/stats/test_distribution_uniform.fypp

@@ -38,7 +38,7 @@ program test_distribution_uniform
 
     subroutine test_shuffle
         integer :: n(10)
-        integer, paramter :: na(10) = [10, 6, 9, 2, 8, 1, 3, 5, 7, 4]
+        integer, parameter :: na(10) = [10, 6, 9, 2, 8, 1, 3, 5, 7, 4]
         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]