1-- { dg-do run }
2-- { dg-options "-O2" }
3
4with Ada.Calendar; use Ada.Calendar;
5with Opt90d_Pkg; use Opt90d_Pkg;
6
7procedure Opt90d is
8  B : constant Integer := Year (Clock);
9  V : Data;
10
11begin
12  V := (R => (A => 0, B => B, C => 0, D => "000000000000"));
13  if V.R.B /= B then
14    raise Program_Error;
15  end if;
16end;
17