qr temporary storage: make intent(out)

Author: perazz

doc/specs/stdlib_linalg.md

@@ -930,7 +930,7 @@ the full problem is solved. On reduced matrices (`shape(Q)==[m,k]`, `shape(R)==[
 
 `r`: Shall be a rank-2 array of the same kind as `a`, containing the upper triangular matrix `r`. It is an `intent(out)` argument. It should have a shape equal to either `[m,n]` or `[k,n]`, whether the full or the reduced problem is sought for.
 
-`storage` (optional): Shall be a rank-1 array of the same type and kind as `a`, providing working storage for the solver. Its minimum size can be determined with a call to [[stdlib_linalg(module):qr_space(interface)]]. It is an `intent(inout)` argument.
+`storage` (optional): Shall be a rank-1 array of the same type and kind as `a`, providing working storage for the solver. Its minimum size can be determined with a call to [[stdlib_linalg(module):qr_space(interface)]]. It is an `intent(out)` argument.
 
 `overwrite_a` (optional): Shall be an input `logical` flag (default: `.false.`). If `.true.`, input matrix `a` will be used as temporary storage and overwritten. This avoids internal data allocation. It is an `intent(in)` argument.
 

src/stdlib_linalg.fypp

@@ -478,7 +478,7 @@ module stdlib_linalg
          !> [optional] Can A data be overwritten and destroyed?
          logical(lk), optional, intent(in) :: overwrite_a
          !> [optional] Provide pre-allocated workspace, size to be checked with qr_space
-         ${rt}$, intent(inout), optional, target :: storage(:)
+         ${rt}$, intent(out), optional, target :: storage(:)
          !> [optional] state return flag. On error if not requested, the code will stop
          type(linalg_state_type), optional, intent(out) :: err
       end subroutine stdlib_linalg_${ri}$_qr

src/stdlib_linalg_qr.fypp

@@ -147,7 +147,7 @@ submodule (stdlib_linalg) stdlib_linalg_qr
          !> [optional] Can A data be overwritten and destroyed?
          logical(lk), optional, intent(in) :: overwrite_a
          !> [optional] Provide pre-allocated workspace, size to be checked with qr_space
-         ${rt}$, intent(inout), optional, target :: storage(:)
+         ${rt}$, intent(out), optional, target :: storage(:)
          !> [optional] state return flag. On error if not requested, the code will stop
          type(linalg_state_type), optional, intent(out) :: err