diff options
Diffstat (limited to 'testsuites/ada/sptests/spatcb01/spatcb01.adb')
| -rw-r--r-- | testsuites/ada/sptests/spatcb01/spatcb01.adb | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuites/ada/sptests/spatcb01/spatcb01.adb b/testsuites/ada/sptests/spatcb01/spatcb01.adb new file mode 100644 index 0000000000..19aaa8031f --- /dev/null +++ b/testsuites/ada/sptests/spatcb01/spatcb01.adb @@ -0,0 +1,26 @@ +-- +-- MAIN / BODY +-- +-- DESCRIPTION: +-- +-- Ensure that the SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC implementation +-- works. +-- +-- Copyright (c) 2017 embedded brains GmbH +-- +-- The license and distribution terms for this file may in +-- the file LICENSE in this distribution or at +-- http://www.rtems.org/license/LICENSE. +-- + +with TEXT_IO; +with System.Task_Primitives.Operations; +with System.Tasking; + +procedure SPATCB01 is + Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self; +begin + TEXT_IO.PUT_LINE( "*** BEGIN OF TEST SPATCB 1 ***" ); + TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) ); + TEXT_IO.PUT_LINE( "*** END OF TEST SPATCB 1 ***" ); +end SPATCB01; |