2 -- { dg-options "-O2" }
4 with Opt10_Pkg; use Opt10_Pkg;
8 procedure Compare_Rep_Data (MA, MB : Rep_Message) is
10 if MA.Data /= MB.Data then
15 procedure Check_Rep_For (Bit : Boolean) is
18 Safe_Assign (MA, Bit);
19 Safe_Assign (MB, Bit);
20 Compare_Rep_Data (MA, MB);
24 Check_Rep_For (Bit => False);