PowerAda 91
From OC Systems Wiki!
(91) The declarations of Any_Priority and Priority.
See D.1(11).
From the package SYSTEM:
SUBTYPE Any_Priority IS Integer RANGE 0..63; SUBTYPE Priority IS Any_Priority RANGE Any_Priority'First .. Any_Priority'Last-1;