gcc/testsuite/gnat.dg/generic_inst11_pkg.adb

   1 with System;
   2
   3 package body Generic_Inst11_Pkg is
   4
   5    Data : Integer;
   6
   7    generic
   8       Reg_Address : System.Address;
   9    procedure Inner_G with Inline;
  10
  11    procedure Inner_G is
  12       Reg : Integer with Address => Reg_Address;
  13    begin
  14       null;
  15    end;
  16
  17    procedure My_Inner_G is new Inner_G (Data'Address);
  18
  19    procedure Proc renames My_Inner_G;
  20
  21 end Generic_Inst11_Pkg;