Deterministic matrix to verify output.

test/linalg/test_linalg_pivoting_qr.fypp

@@ -43,12 +43,21 @@ module test_linalg_pivoting_qr
         ${rt}$, allocatable :: work(:)
         type(linalg_state_type) :: state
 
-        call random_number(rea)
+        ! call random_number(rea)
+        ! #:if rt.startswith('complex')
+        ! call random_number(ima)
+        ! a = cmplx(rea,ima,kind=${rk}$)
+        ! #:else
+        ! a = rea
+        ! #:endif
         #:if rt.startswith('complex')
-        call random_number(ima)
-        a = cmplx(rea,ima,kind=${rk}$)
+        do concurrent(i=1:m, j=1:n)
+            a(i, j) = cmplx(i+j, i-j, kind=${rk}$)
+        enddo
         #:else
-        a = rea
+        do concurrent(i=1:m, j=1:n)
+            a(i, j) = i+j
+        enddo
         #:endif
         aorig = a