From c0a4a658097c56fa03d04b8d15c3ea02961d62a4 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 25 Jan 2022 08:59:52 +0100 Subject: [PATCH] Fortran: fix typo in signaling NaN testcase gcc/testsuite/ChangeLog: * gfortran.dg/ieee/signaling_1.f90: Fix test. --- 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 1c7c7cf16a5b..2b156811c1ec 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 -- 2.47.2