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

@@ -93,19 +93,19 @@ program test_distribution_uniform
           integer :: i, n, seed, get, k
 
           #:if k1 == "int8"
-          ${t1}$ :: ans(15) = [47, 99, 43, 37, 48, 30, 27, 100, 30, 33, 21,     &
+          ${t1}$, parameter :: ans(15) = [47, 99, 43, 37, 48, 30, 27, 100, 30, 33, 21,     &
                                103, 55, 54, 110]
           #:elif k1 == "int16"
-          ${t1}$ :: ans(15) = [25, 4, 81, 98, 49, 34, 32, 62, 115, 112, 26,     &
+          ${t1}$, parameter :: ans(15) = [25, 4, 81, 98, 49, 34, 32, 62, 115, 112, 26,     &
                                20, 37, 100, 82]
           #:elif k1 == "int32"
-          ${t1}$ :: ans(15) = [19, 52, 56, 20, 59, 44, 34, 102, 19, 39, 60,     &
+          ${t1}$, parameter :: ans(15) = [19, 52, 56, 20, 59, 44, 34, 102, 19, 39, 60,     &
                                50, 97, 56, 67]
           #:elif k1 == "int64"
-          ${t1}$ :: ans(15) = [76, 45, 43, 75, 76, 15, 25, 24, 114, 113, 94,    &
+          ${t1}$, parameter :: ans(15) = [76, 45, 43, 75, 76, 15, 25, 24, 114, 113, 94,    &
                                29, 109, 93, 89]
           #:elif t1[0] == "r"
-          ${t1}$ :: ans(15) =                                                   &
+          ${t1}$, parameter :: ans(15) =                                                   &
                           [0.914826628538749186958511927514337003_${k1}$,       &
                           0.367330098664966409049981166390352882_${k1}$,        &
                           1.77591243057709280428468900936422870_${k1}$,         &