17 lines
306 B
Ada
17 lines
306 B
Ada
-- { 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;
|