Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/a000107.ada

Text File | 1988-05-03 | 464 b | 29 lines

-- This is a procedure that calls the tasking related timing procedures

with C000001 ;
with C000002 ;
with C000003 ;
with T000001 ;
with T000002 ;
with T000003 ;
with T000004 ;
with T000005 ;
with T000006 ;
with T000007 ;

procedure A000107 is
begin

  C000001 ;
  C000002 ;
  C000003 ;
  T000001 ;
  T000002 ;
  T000003 ;
  T000004 ;
  T000005 ;
  T000006 ;
  T000007 ; -- only a check. it will not work on some hosts.

end A000107 ;