summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto16_pkg.adb
diff options
context:
space:
mode:
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>2014-10-07 07:56:43 +0000
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>2014-10-07 07:56:43 +0000
commit3b68434490a85265312e4b0a0c4153c5ac05ca7d (patch)
treeddfc6423ea43b158728db7853802890da8621bf1 /gcc/testsuite/gnat.dg/lto16_pkg.adb
parent224bdd518eae3c5b48c0f10988f2e520a6546685 (diff)
downloadgcc-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.adb18
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;