generic type Element is private;type Index is
( <>); type Element_Array is array (Index range <>) of Element; with function "<" (Left, Right : Element) return Boolean is <>; procedure Concurrent_Mergesort (Sort_Field : in out Element_Array); References:
concurrent_mergesort.ads:9:11 (declaration)concurrent_mergesort.adb:70:5 (label)test_concurrent_mergesort.adb:5:6 (with line)test_concurrent_mergesort.adb:21:43 (reference)Called by: