Debugging intel classic

Author: loiseaujc

test/linalg/test_linalg_pivoting_qr.fypp

@@ -61,10 +61,10 @@ module test_linalg_pivoting_qr
         call check(error,state%ok(),state%print())
         if (allocated(error)) return        
 
-        ! ! Check solution
-        ! call check(error, all(abs(a(:, pivots)-matmul(q,r))<tol), 'converged solution (full)')
-        ! if (allocated(error)) return        
-        !
+        ! Check solution
+        call check(error, all(abs(a(:, pivots)-matmul(q,r))<tol), 'converged solution (full)')
+        if (allocated(error)) return        
+
         ! ! 2) QR factorization with reduced matrices
         ! call qr(a, qred, rred, pivots, err=state)
         !