1package body Opt38_Pkg is
2
3  procedure Proc (I : Integer);
4  pragma Inline (Proc);
5
6  procedure Proc (I : Integer) is
7
8    procedure Inner;
9    pragma No_Inline (Inner);
10
11    procedure Inner is
12    begin
13      if I /= 110 then
14        raise Program_Error;
15      end if;
16    end;
17
18  begin
19    if I > 0 then
20      Inner;
21    end if;
22  end;
23
24  procedure Test (I : Integer) is
25  begin
26    if I > -1 then
27      Proc (I);
28    else
29      Proc (I + 111);
30    end if;
31  end;
32
33end Opt38_Pkg;
34