From: Francois-Xavier Coudert Date: Tue, 25 Jan 2022 07:59:52 +0000 (+0100) Subject: Fortran: fix typo in signaling NaN testcase X-Git-Tag: basepoints/gcc-13~1459 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c0a4a658097c56fa03d04b8d15c3ea02961d62a4;p=thirdparty%2Fgcc.git Fortran: fix typo in signaling NaN testcase gcc/testsuite/ChangeLog: * gfortran.dg/ieee/signaling_1.f90: Fix test. --- 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