gcc/testsuite/opt55.adb


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;