gcc/testsuite/gnat.dg/inline20_g.adb

   1 with Ada.Streams; use Ada.Streams;
   2
   3 package body Inline20_G is
   4
   5    package body Nested_G is
   6
   7       procedure Get (Data : T; Into : out Offset_Type) is
   8       begin
   9          Into := (T'Descriptor_Size + Data'Size) / Standard'Storage_Unit;
  10       end;
  11
  12       function F return Integer is
  13       begin
  14          return 0;
  15       end;
  16    end Nested_G;
  17
  18 end Inline20_G;