[gcc r12-6854] Fortran: fix typo in signaling NaN testcase

[gcc r12-6854] Fortran: fix typo in signaling NaN testcase

[Franथईois-Xavier Coudert]

https://gcc.gnu.org/g:c0a4a658097c56fa03d04b8d15c3ea02961d62a4

commit r12-6854-gc0a4a658097c56fa03d04b8d15c3ea02961d62a4
Author: Francois-Xavier Coudert <fxcoudert@gmail.com>
Date:   Tue Jan 25 08:59:52 2022 +0100

    Fortran: fix typo in signaling NaN testcase
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/ieee/signaling_1.f90: Fix test.

Diff:
---
 gcc/testsuite/gfortran.dg/ieee/signaling_1.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/ieee/signaling_1.f90 b/gcc/testsuite/gfortran.dg/ieee/signaling_1.f90
index 1c7c7cf16a5..2b156811c1e 100644
--- a/gcc/testsuite/gfortran.dg/ieee/signaling_1.f90
+++ b/gcc/testsuite/gfortran.dg/ieee/signaling_1.f90
@@ -39,7 +39,7 @@ program test
     if (.not. ieee_unordered(x, x)) stop 105
     if (.not. ieee_unordered(x, 1._c_float)) stop 106
 
-    x = ieee_value(y, ieee_quiet_nan)
+    x = ieee_value(x, ieee_quiet_nan)
     if (ieee_class(x) /= ieee_quiet_nan) stop 107
     if (.not. ieee_is_nan(x)) stop 108
     if (ieee_is_negative(x)) stop 109
@@ -79,7 +79,7 @@ program test
     if (.not. ieee_unordered(z, z)) stop 305
     if (.not. ieee_unordered(z, 1._c_long_double)) stop 306
 
-    z = ieee_value(y, ieee_quiet_nan)
+    z = ieee_value(z, ieee_quiet_nan)
     if (ieee_class(z) /= ieee_quiet_nan) stop 307
     if (.not. ieee_is_nan(z)) stop 308
     if (ieee_is_negative(z)) stop 309