2008-04-14 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / test_delay.adb

-- { dg-do run }

with Ada.Real_Time;
        
procedure Test_Delay is
begin
   delay until Ada.Real_Time.Clock;
end Test_Delay;