consistent test array sizes

Author: banana-bred

test/specialfunctions/test_specialfunctions_gamma.fypp

@@ -139,8 +139,8 @@ contains
 
         #:if k1 == "int8"
 
-        ${t1}$, parameter :: x(n) = [1_${k1}$, 2_${k1}$, 4_${k1}$, 5_${k1}$, 6_${k1}$ ]
-        ${t1}$, parameter :: ans(n) = [1_${k1}$, 1_${k1}$, 6_${k1}$, 24_${k1}$, 120_${k1}$ ]
+        ${t1}$, parameter :: x(n) = [1_${k1}$, 2_${k1}$, 4_${k1}$, 5_${k1}$, 6_${k1}$]
+        ${t1}$, parameter :: ans(n) = [1_${k1}$, 1_${k1}$, 6_${k1}$, 24_${k1}$, 120_${k1}$]
 
         #:elif k1 == "int16"
 
@@ -160,14 +160,14 @@ contains
                                       2432902008176640000_${k1}$]
         #:elif t1[0] == "c"
 
-        ${t1}$, parameter :: x(k) = [(0.25_${k1}$, 0.25_${k1}$),               &
+        ${t1}$, parameter :: x(n) = [(0.25_${k1}$, 0.25_${k1}$),               &
                                      (0.5_${k1}$, -0.5_${k1}$),                &
                                      (1.0_${k1}$, 1.0_${k1}$),                 &
                                      (-1.254e1_${k1}$, -9.87_${k1}$),          &
                                      (0.0_${k1}$, 1.0_{k1}$)                   &
                                     ]
 
-        ${t1}$, parameter :: ans(k) =                                          &
+        ${t1}$, parameter :: ans(n) =                                          &
                      [(1.6511332803889208_${k1}$, -1.8378758749947890_${k1}$), &
                       (0.81816399954174739_${k1}$, 0.76331382871398262_${k1}$),&
                      (0.49801566811835604_${k1}$, -0.15494982830181069_${k1}$),&