return allocated array

Author: wassup05

src/stdlib_intrinsics_matmul.fypp

@@ -142,6 +142,7 @@ contains
         if (size(m1, 2) /= p(2)) then
             err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m1, m2 not of compatible sizes')
             call linalg_error_handling(err0, err) 
+            allocate(r(0, 0))
             return
         end if
 
@@ -151,6 +152,7 @@ contains
             if (size(m3, 1) /= p(3)) then
                 err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m2, m3 not of compatible sizes')
                 call linalg_error_handling(err0, err) 
+                allocate(r(0, 0))
                 return
             end if
 
@@ -163,6 +165,7 @@ contains
             if (size(m4, 1) /= p(4)) then
                 err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m3, m4 not of compatible sizes')
                 call linalg_error_handling(err0, err) 
+                allocate(r(0, 0))
                 return
             end if
 
@@ -175,6 +178,7 @@ contains
             if (size(m5, 1) /= p(5)) then
                 err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m4, m5 not of compatible sizes')
                 call linalg_error_handling(err0, err) 
+                allocate(r(0, 0))
                 return
             end if