FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fortran: fix typo in signaling NaN testcase

Browse source 
gcc/testsuite/ChangeLog:

	* gfortran.dg/ieee/signaling_1.f90: Fix test.
This commit is contained in:
Francois-Xavier Coudert 2022-01-25 08:59:52 +01:00
parent f4ee27d326
commit c0a4a65809
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/gfortran.dg/ieee/signaling_1.f90
View file

@ -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