1d matrix shape

Author: perazz

src/stdlib_linalg_svd.fypp

@@ -67,11 +67,11 @@ module stdlib_linalg_svd
            case (-1)
                err = linalg_state_type(this,LINALG_INTERNAL_ERROR,'Invalid task ID on input to GESDD.')
            case (-5,-3:-2)
-               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix size: a=[',m,',',n,']')
+               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix size: a=',[m,n])
            case (-8)
-               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix U size, with a=[',m,',',n,']')
+               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix U size, with a=',[m,n])
            case (-10)
-               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix V size, with a=[',m,',',n,']')
+               err = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid matrix V size, with a=',[m,n])
            case (-4)
                err = linalg_state_type(this,LINALG_VALUE_ERROR,'A contains invalid/NaN values.')
            case (1:)
@@ -150,7 +150,7 @@ module stdlib_linalg_svd
          lda = m
 
          if (.not.k>0) then
-            err0 = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid or matrix size: a=[',m,',',n,']')
+            err0 = linalg_state_type(this,LINALG_VALUE_ERROR,'invalid or matrix size: a=',[m,n])
             goto 1
          end if