aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>2022-01-17 12:12:00 +0100
committerFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>2022-01-17 12:15:27 +0100
commitd573a303be1bd554d1dff6cc243b30d536987fb4 (patch)
tree22790fdbd05aa1da2c4a4b45b8a0f574ddd11bc2 /gcc
parenta42805deb85975e82c1d87e430b88c9f4b145df4 (diff)
downloadgcc-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.f9042
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