blob: 6da58bbcc7eafceb39a13b15200ddd89e2a837f7 [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-O2" }
with Ada.Calendar; use Ada.Calendar;
with Opt90b_Pkg; use Opt90b_Pkg;
procedure Opt90b is
B : constant Integer := Year (Clock);
V : Data;
begin
V := (R => (A => 0, B => B, C => 0, D => "000000000000"));
if V.R.B /= B then
raise Program_Error;
end if;
end;