1-- { dg-do run }
2-- { dg-options "-gnatp" }
3
4-- This test requires architecture- and OS-specific support code for unwinding
5-- through signal frames (typically located in *-unwind.h) to pass.  Feel free
6-- to disable it if this code hasn't been implemented yet.
7
8procedure Null_Pointer_Deref2 is
9
10   task T;
11
12   task body T is
13      type Int_Ptr is access all Integer;
14
15      function Ident return Int_Ptr is
16      begin
17        return null;
18      end;
19      Data : Int_Ptr := Ident;
20   begin
21      Data.all := 1;
22   exception
23      when Constraint_Error | Storage_Error => null;
24   end T;
25
26begin
27   null;
28end;
29