test_delay.adb « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/test_delay.adb

blob: aaedf7f4028d96fb7e56c583906fac34713e41a3 (plain)

-- { dg-do run }

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