blob: 70f486b2ee3660af99574361f7dc8f2051b03a45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- { dg-do compile }
-- { dg-options "-O" }
package body Opt55 is
function Cond (B : Boolean; If_True, If_False : Date) return Date is
begin
if B then
return If_True;
else
return If_False;
end if;
end;
function F (C : Rec2; B : Boolean) return Date is
begin
return Cond (B, C.D1, C.D2);
end;
end Opt55;
|