source: rtems/testsuites/ada/sptests/spatcb01/spatcb01.adb @ ee537ea

5
Last change on this file since ee537ea was ee537ea, checked in by Sebastian Huber <sebastian.huber@…>, on 10/12/17 at 08:00:10

ada-tests: Move to testsuites/ada

This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.

Close #3079.
  • Property mode set to 100644
File size: 737 bytes
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  Ensure that the SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC implementation
7--  works.
8--
9--  Copyright (c) 2017 embedded brains GmbH
10--
11--  The license and distribution terms for this file may in
12--  the file LICENSE in this distribution or at
13--  http://www.rtems.org/license/LICENSE.
14--
15
16with TEXT_IO;
17with System.Task_Primitives.Operations;
18with System.Tasking;
19
20procedure SPATCB01 is
21  Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self;
22begin
23  TEXT_IO.PUT_LINE( "*** BEGIN OF TEST SPATCB 1 ***" );
24  TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) );
25  TEXT_IO.PUT_LINE( "*** END OF TEST SPATCB 1 ***" );
26end SPATCB01;
Note: See TracBrowser for help on using the repository browser.