diff options
| author | Francois-Xavier Coudert <fxcoudert@gmail.com> | 2022-01-25 08:59:52 +0100 |
|---|---|---|
| committer | Francois-Xavier Coudert <fxcoudert@gmail.com> | 2022-01-25 09:00:38 +0100 |
| commit | c0a4a658097c56fa03d04b8d15c3ea02961d62a4 (patch) | |
| tree | f96f03e3f060354228808566dbd2a209f532b7fb | |
| parent | f4ee27d3262fc4fc3e5d3535f195fdcf87d7ec77 (diff) | |
| download | gcc-c0a4a658097c56fa03d04b8d15c3ea02961d62a4.zip gcc-c0a4a658097c56fa03d04b8d15c3ea02961d62a4.tar.gz gcc-c0a4a658097c56fa03d04b8d15c3ea02961d62a4.tar.bz2 | |
Fortran: fix typo in signaling NaN testcase
gcc/testsuite/ChangeLog:
* gfortran.dg/ieee/signaling_1.f90: Fix test.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/signaling_1.f90 | 4 |
1 files 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 1c7c7cf..2b15681 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 |