libadalang_tools_24.0.0_d864b5a8/testsuite/tests/test/TA19-048/p.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
with System;
with System.Multiprocessors;
with System.Storage_Elements;
package P is

   task type TT
     (Base_Priority : System.Priority;
      Storage_Size  : System.Storage_Elements.Storage_Offset;
      Cpu           : System.Multiprocessors.Cpu_Range)
     with Priority     => Base_Priority,
          Storage_Size => Storage_Size,
          Cpu          => Cpu
   is
      entry Start (N : Integer);
   end TT;

   function F return Integer is (1);

end P;