Revert "Debug ubuntu-22.04/cmake/intel-classic"

This reverts commit c2fbf36.

Author: loiseaujc

test/linalg/test_linalg_pivoting_qr.fypp

@@ -23,8 +23,8 @@ module test_linalg_pivoting_qr
 
         #:for rk,rt,ri in RC_KINDS_TYPES
         call add_test(tests,new_unittest("pivoting_qr_random_tall_matrix_${ri}$",test_pivoting_qr_random_tall_matrix_${ri}$))
-        ! call add_test(tests,new_unittest("pivoting_qr_random_rank_deficient_${ri}$",test_pivoting_qr_random_rank_deficient_${ri}$))
-        ! call add_test(tests,new_unittest("pivoting_qr_random_wide_matrix_${ri}$",test_pivoting_qr_random_wide_matrix_${ri}$))
+        call add_test(tests,new_unittest("pivoting_qr_random_rank_deficient_${ri}$",test_pivoting_qr_random_rank_deficient_${ri}$))
+        call add_test(tests,new_unittest("pivoting_qr_random_wide_matrix_${ri}$",test_pivoting_qr_random_wide_matrix_${ri}$))
         #:endfor
     end subroutine test_pivoting_qr_factorization
 
@@ -62,31 +62,31 @@ module test_linalg_pivoting_qr
         if (allocated(error)) return        
 
         ! Check solution
-        call check(error, mnorm(a(:, pivots)-matmul(q,r), order=2) < tol, 'converged solution (full)')
+        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)
 
         ! Check return code
         call check(error,state%ok(),state%print())
         if (allocated(error)) return        
-        !
-        ! ! Check solution
-        ! call check(error, all(abs(a(:, pivots)-matmul(qred,rred))<tol), 'converged solution (reduced)')
-        ! if (allocated(error)) return        
-        !
+
+        ! Check solution
+        call check(error, all(abs(a(:, pivots)-matmul(qred,rred))<tol), 'converged solution (reduced)')
+        if (allocated(error)) return        
+
         ! 3) overwrite A
         call qr(a, qred, rred, pivots, overwrite_a=.true., err=state)
 
         ! Check return code
         call check(error,state%ok(),state%print())
         if (allocated(error)) return        
-        !
-        ! ! Check solution
-        ! call check(error, all(abs(aorig(:, pivots)-matmul(qred,rred))<tol), 'converged solution (overwrite A)')
-        ! if (allocated(error)) return                
-        !
+
+        ! Check solution
+        call check(error, all(abs(aorig(:, pivots)-matmul(qred,rred))<tol), 'converged solution (overwrite A)')
+        if (allocated(error)) return                
+
         ! 4) External storage option   
         a = aorig
         call qr_space(a, lwork, pivoting=.true.)
@@ -96,11 +96,11 @@ module test_linalg_pivoting_qr
         ! Check return code
         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 (external storage)')
-        ! if (allocated(error)) return          
-        !
+
+        ! Check solution
+        call check(error, all(abs(a(:, pivots)-matmul(q,r))<tol), 'converged solution (external storage)')
+        if (allocated(error)) return          
+
         ! Check that an invalid problem size returns an error
         a = aorig        
         call qr(a, qerr, rerr, pivots, err=state)
@@ -140,9 +140,9 @@ 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)
@@ -151,9 +151,9 @@ 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(qred,rred))<tol), 'converged solution (reduced)')
-        ! if (allocated(error)) return        
+        ! Check solution
+        call check(error, all(abs(a(:, pivots)-matmul(qred,rred))<tol), 'converged solution (reduced)')
+        if (allocated(error)) return        
 
         ! 3) overwrite A
         call qr(a, qred, rred, pivots, overwrite_a=.true., err=state)
@@ -162,9 +162,9 @@ module test_linalg_pivoting_qr
         call check(error,state%ok(),state%print())
         if (allocated(error)) return        
 
-        ! ! Check solution
-        ! call check(error, all(abs(aorig(:, pivots)-matmul(qred,rred))<tol), 'converged solution (overwrite A)')
-        ! if (allocated(error)) return                
+        ! Check solution
+        call check(error, all(abs(aorig(:, pivots)-matmul(qred,rred))<tol), 'converged solution (overwrite A)')
+        if (allocated(error)) return                
 
         ! 4) External storage option   
         a = aorig
@@ -176,9 +176,9 @@ 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 (external storage)')
-        ! if (allocated(error)) return          
+        ! Check solution
+        call check(error, all(abs(a(:, pivots)-matmul(q,r))<tol), 'converged solution (external storage)')
+        if (allocated(error)) return          
 
         ! Check that an invalid problem size returns an error
         a = aorig