Require target lra in gcc.dg/pr108095.c

[official-gcc.git] / gcc / testsuite / gnat.dg / discr49.adb

--  { dg-do run }

with Discr49_Rec2; use Discr49_Rec2;

procedure Discr49 is
   Obj : Child (True);
   I : Integer := Value (Obj) + Boolean'Pos (Obj.Discr);
begin
   if I /= 125 then
      raise Program_Error;
   end if;
end Discr49;