blob: b4f4c2790eb871741b269f8a440ae7579f014ee3 [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-O2" }
with Ada.Calendar; use Ada.Calendar;
with Opt90c_Pkg; use Opt90c_Pkg;
procedure Opt90c 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;