2 -- { dg-options "-gnatws" }
4 with Address_Null_Init; use Address_Null_Init;
5 with Ada.Text_IO; use Ada.Text_IO;
7 procedure Test_Address_Null_Init is
10 Put_Line ("ERROR: B was not default initialized to null!");
14 Put_Line ("ERROR: A was not reinitialized to null!");
16 end Test_Address_Null_Init;