diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2022-01-17 12:12:00 +0100 |
---|---|---|
committer | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2022-01-17 12:15:27 +0100 |
commit | d573a303be1bd554d1dff6cc243b30d536987fb4 (patch) | |
tree | 22790fdbd05aa1da2c4a4b45b8a0f574ddd11bc2 /gcc | |
parent | a42805deb85975e82c1d87e430b88c9f4b145df4 (diff) | |
download | gcc-d573a303be1bd554d1dff6cc243b30d536987fb4.zip gcc-d573a303be1bd554d1dff6cc243b30d536987fb4.tar.gz gcc-d573a303be1bd554d1dff6cc243b30d536987fb4.tar.bz2 |
Fortran: remove new files introduced by mistake
These two files were introduced by mistake in
86e3b476d5defaa79c94d40b76cbeec21cd02e5f
gcc/testsuite/ChangeLog:
* gfortran.dg/ieee/signaling_3.f90: Remove file.
libgfortran/ChangeLog:
* ieee/issignaling_fallback.h: Remove file.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/signaling_3.f90 | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/signaling_3.f90 b/gcc/testsuite/gfortran.dg/ieee/signaling_3.f90 deleted file mode 100644 index 45bd9c35..0000000 --- a/gcc/testsuite/gfortran.dg/ieee/signaling_3.f90 +++ /dev/null @@ -1,42 +0,0 @@ -! { dg-do run } -! -program test - use, intrinsic :: iso_c_binding - use, intrinsic :: ieee_arithmetic - implicit none - - real(kind=c_float) :: x - real(kind=c_double) :: y - real(kind=c_long_double) :: z - - if (ieee_support_nan(x)) then - x = ieee_value(x, ieee_signaling_nan) - if (ieee_class(x) /= ieee_signaling_nan) stop 100 - if (.not. ieee_is_nan(x)) stop 101 - - x = ieee_value(x, ieee_quiet_nan) - if (ieee_class(x) /= ieee_quiet_nan) stop 103 - if (.not. ieee_is_nan(x)) stop 104 - end if - - if (ieee_support_nan(y)) then - y = ieee_value(y, ieee_signaling_nan) - if (ieee_class(y) /= ieee_signaling_nan) stop 100 - if (.not. ieee_is_nan(y)) stop 101 - - y = ieee_value(y, ieee_quiet_nan) - if (ieee_class(y) /= ieee_quiet_nan) stop 103 - if (.not. ieee_is_nan(y)) stop 104 - end if - - if (ieee_support_nan(z)) then - z = ieee_value(z, ieee_signaling_nan) - if (ieee_class(z) /= ieee_signaling_nan) stop 100 - if (.not. ieee_is_nan(z)) stop 101 - - z = ieee_value(z, ieee_quiet_nan) - if (ieee_class(z) /= ieee_quiet_nan) stop 103 - if (.not. ieee_is_nan(z)) stop 104 - end if - -end program test |