gcc/testsuite/gnat.dg/addr12_b.adb


1
2
3
4
5
6
7
8

package body Addr12_B is

   function Initial_State return Shared_Context_Type is
   begin
      return Shared_Context_Type'(Data => (others => Null_Entry));
   end Initial_State;

end Addr12_B;