use IEEE NaNs

Author: perazz

test/linalg/test_linalg_qr.fypp

@@ -6,6 +6,7 @@ module test_linalg_qr
     use stdlib_linalg_constants
     use stdlib_linalg_state, only: LINALG_VALUE_ERROR,linalg_state_type
     use stdlib_linalg, only: qr,qr_space
+    use ieee_arithmetic, only: ieee_value,ieee_quiet_nan
 
     implicit none (type,external)
 
@@ -51,10 +52,8 @@ module test_linalg_qr
         aorig = a
 
         ! 1) QR factorization with full matrices. Input NaNs to be sure Q and R are OK on return
-        q = 0.0_${rk}$
-        q = 1.0_${rk}$/q
-        r = 0.0_${rk}$
-        r = 1.0_${rk}$/r       
+        q = ieee_value(0.0_${rk}$,ieee_quiet_nan)
+        r = ieee_value(0.0_${rk}$,ieee_quiet_nan)
         call qr(a,q,r,err=state)
 
         ! Check return code