lift xdp restriction

Author: perazz

src/stdlib_linalg.fypp

@@ -466,10 +466,8 @@ module stdlib_linalg
     !! problem only: \( A = Q_1 R_1 \) (provide `shape(Q)==[m,k]`, `shape(R)==[k,n]`).
     !! 
     !!@note The solution is based on LAPACK's QR factorization (`*GEQRF`) and ordered matrix output (`*ORGQR`, `*UNGQR`). 
-    !!@note BLAS/LAPACK backends do not currently support extended precision (``xdp``).
     !!     
     #:for rk,rt,ri in RC_KINDS_TYPES
-    #:if rk!="xdp" 
       pure module subroutine stdlib_linalg_${ri}$_qr(a,q,r,overwrite_a,storage,err) 
          !> Input matrix a[m,n]
          ${rt}$, intent(inout), target :: a(:,:)
@@ -484,7 +482,6 @@ module stdlib_linalg
          !> [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
-    #:endif
     #:endfor    
   end interface qr
 
@@ -504,7 +501,6 @@ module stdlib_linalg
     !! are provided, no internal allocations will take place during the factorization.
     !!     
     #:for rk,rt,ri in RC_KINDS_TYPES
-    #:if rk!="xdp" 
       pure module subroutine get_qr_${ri}$_workspace(a,lwork,err)
          !> Input matrix a[m,n]
          ${rt}$, intent(inout), target :: a(:,:)
@@ -513,7 +509,6 @@ module stdlib_linalg
          !> State return flag. Returns an error if the query failed
          type(linalg_state_type), optional, intent(out) :: err
       end subroutine get_qr_${ri}$_workspace
-    #:endif
     #:endfor
   end interface qr_space
 

src/stdlib_linalg_qr.fypp

@@ -89,7 +89,6 @@ submodule (stdlib_linalg) stdlib_linalg_qr
      end subroutine handle_geqrf_info
 
      #:for rk,rt,ri in RC_KINDS_TYPES
-     #:if rk!="xdp"
 
      ! Get workspace size for QR operations
      pure module subroutine get_qr_${ri}$_workspace(a,lwork,err)
@@ -268,7 +267,6 @@ submodule (stdlib_linalg) stdlib_linalg_qr
 
      end subroutine stdlib_linalg_${ri}$_qr
 
-     #:endif
      #:endfor
 
 end submodule stdlib_linalg_qr

test/linalg/test_linalg_qr.fypp

@@ -21,16 +21,13 @@ module test_linalg_qr
         allocate(tests(0))
 
         #:for rk,rt,ri in RC_KINDS_TYPES
-        #:if rk!="xdp"
         tests = [tests,new_unittest("qr_random_${ri}$",test_qr_random_${ri}$)]
-        #:endif
         #:endfor
 
     end subroutine test_qr_factorization
 
     !> QR factorization of a random matrix
     #:for rk,rt,ri in RC_KINDS_TYPES
-    #:if rk!="xdp"
     subroutine test_qr_random_${ri}$(error)
         type(error_type), allocatable, intent(out) :: error
 
@@ -112,7 +109,6 @@ module test_linalg_qr
 
     end subroutine test_qr_random_${ri}$
 
-    #:endif
     #:endfor