reduce size, increase tolerance

Author: wassup05

test/intrinsics/test_intrinsics.fypp

@@ -263,20 +263,20 @@ subroutine test_matmul(error)
 
     #:for k, t, s in R_KINDS_TYPES
     block
-        ${t}$ :: x(10,20), y(20,30), z(30,10), r(10,10), r1(10,10)
+        ${t}$ :: x(10,15), y(15,20), z(20,10), r(10,10), r1(10,10)
         call random_number(x)
         call random_number(y)
         call random_number(z)
 
         r = stdlib_matmul(x, y, z) ! the optimal ordering would be (x(yz))
         r1 = matmul(matmul(x, y), z) ! the opposite order to induce a difference
 
-        call check(error, all(abs(r-r1) <= epsilon(0._${k}$) * 300), "real, ${k}$, 3 args: error too large")
+        call check(error, all(abs(r-r1) <= epsilon(0._${k}$) * 150), "real, ${k}$, 3 args: error too large")
         if (allocated(error)) return
     end block
 
     block
-        ${t}$ :: x(10,20), y(20,30), z(30,10), w(10, 20), r(10,20), r1(10,20)
+        ${t}$ :: x(10,15), y(15,20), z(20,10), w(10, 15), r(10,15), r1(10,15)
         call random_number(x)
         call random_number(y)
         call random_number(z)
@@ -285,7 +285,7 @@ subroutine test_matmul(error)
         r = stdlib_matmul(x, y, z, w) ! the optimal order would be ((x(yz))w)
         r1 = matmul(matmul(x, y), matmul(z, w))
 
-        call check(error, all(abs(r-r1) <= epsilon(0._${k}$) * 1500), "real, ${k}$, 4 args: error too large")
+        call check(error, all(abs(r-r1) <= epsilon(0._${k}$) * 800), "real, ${k}$, 4 args: error too large")
         if (allocated(error)) return
     end block
     #:endfor