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