diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-07 07:56:43 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-07 07:56:43 +0000 |
commit | 3b68434490a85265312e4b0a0c4153c5ac05ca7d (patch) | |
tree | ddfc6423ea43b158728db7853802890da8621bf1 /gcc/testsuite/gnat.dg/lto16_pkg.adb | |
parent | 224bdd518eae3c5b48c0f10988f2e520a6546685 (diff) | |
download | gcc-3b68434490a85265312e4b0a0c4153c5ac05ca7d.tar.gz |
* lto-opts.c (lto_write_options): Handle -fmath-errno, -fsigned-zeros
and -ftrapping-math.
* lto-wrapper.c (merge_and_complain): Likewise.
(run_gcc): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@215966 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/lto16_pkg.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/lto16_pkg.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/lto16_pkg.adb b/gcc/testsuite/gnat.dg/lto16_pkg.adb new file mode 100644 index 00000000000..edfa399369a --- /dev/null +++ b/gcc/testsuite/gnat.dg/lto16_pkg.adb @@ -0,0 +1,18 @@ +with Ada.Calendar; use Ada.Calendar; + +package body Lto16_Pkg is + + function F return Float is + F1 : Float := Float (Seconds (Clock)); + F2 : Float := Float (Seconds (Clock)); + F : Float; + begin + if F1 > F2 then + F := (F2 - F1) / 2.0; + else + F := (F1 - F2) / 2.0; + end if; + return F; + end; + +end Lto16_Pkg; |