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