summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt21_pkg.ads
diff options
context:
space:
mode:
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>2011-09-26 09:49:02 +0000
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>2011-09-26 09:49:02 +0000
commit1c448b928720ffdc7ffad6742960527135fcf9c7 (patch)
tree505b41ce5be5acc9f8e68844de274b816039d527 /gcc/testsuite/gnat.dg/opt21_pkg.ads
parent48adc4e11f3927d5abebad1720c64744b770f1b2 (diff)
downloadgcc-1c448b928720ffdc7ffad6742960527135fcf9c7.tar.gz
* ifcvt.c (noce_try_cmove_arith): Use may_trap_or_fault_p in lieu of
may_trap_p to detect loads that may trap of fault. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179188 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/opt21_pkg.ads')
-rw-r--r--gcc/testsuite/gnat.dg/opt21_pkg.ads15
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/opt21_pkg.ads b/gcc/testsuite/gnat.dg/opt21_pkg.ads
new file mode 100644
index 00000000000..251bf847748
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/opt21_pkg.ads
@@ -0,0 +1,15 @@
+with System;
+
+package Opt21_Pkg is
+
+ type R is record
+ Ptr : System.Address := System.Null_Address;
+ end record;
+
+ type Obj is access all R;
+
+ function Get_Object (Object : not null access R) return System.Address;
+
+ function Convert (W : Obj) return System.Address;
+
+end Opt21_Pkg;