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