1-- PR ada/69219
2-- Testcae by yuta tomino <demoonlit@panathenaia.halfmoon.jp> */
3
4-- { dg-do compile }
5
6procedure 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
21begin
22  IA;
23end;
24