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_Deref3 is
8
9   pragma Suppress (All_Checks);
10
11   procedure Leaf is
12      type Int_Ptr is access all Integer;
13      function n return Int_Ptr is
14      begin return null; end;
15
16      Data : Int_Ptr := n;
17   begin
18      Data.all := 0;
19   end;
20
21begin
22   Leaf;
23exception
24   when others => null;
25end;
26