diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/null_pointer_deref2.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/null_pointer_deref2.adb | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/null_pointer_deref2.adb b/gcc/testsuite/gnat.dg/null_pointer_deref2.adb new file mode 100644 index 000000000..63e2dd11f --- /dev/null +++ b/gcc/testsuite/gnat.dg/null_pointer_deref2.adb @@ -0,0 +1,28 @@ +-- { dg-do run } +-- { dg-options "-gnatp" } + +-- This test requires architecture- and OS-specific support code for unwinding +-- through signal frames (typically located in *-unwind.h) to pass. Feel free +-- to disable it if this code hasn't been implemented yet. + +procedure Null_Pointer_Deref2 is + + task T; + + task body T is + type Int_Ptr is access all Integer; + + function Ident return Int_Ptr is + begin + return null; + end; + Data : Int_Ptr := Ident; + begin + Data.all := 1; + exception + when Constraint_Error | Storage_Error => null; + end T; + +begin + null; +end; |