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