gcc/testsuite/gnat.dg/inline12.adb

   1 -- PR ada/69219
   2 -- Testcae by yuta tomino <demoonlit@panathenaia.halfmoon.jp> */
   3
   4 -- { dg-do compile }
   5
   6 procedure Inline12 is
   7
   8    procedure NI;
   9
  10    procedure IA;
  11    pragma Convention (Intrinsic, IA);
  12    pragma Inline_Always (IA);
  13
  14    procedure IA is
  15    begin
  16       NI;
  17    end;
  18
  19    procedure NI is null;
  20
  21 begin
  22   IA;
  23 end;