blob: aaedf7f4028d96fb7e56c583906fac34713e41a3 [file] [log] [blame]
-- { dg-do run }
with Ada.Real_Time;
procedure Test_Delay is
begin
delay until Ada.Real_Time.Clock;
end Test_Delay;