summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/sptests/sp05/sp05.adb
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/sptests/sp05/sp05.adb')
-rw-r--r--c/src/ada-tests/sptests/sp05/sp05.adb28
1 files changed, 27 insertions, 1 deletions
diff --git a/c/src/ada-tests/sptests/sp05/sp05.adb b/c/src/ada-tests/sptests/sp05/sp05.adb
index b094f6f290..bd6407a0c7 100644
--- a/c/src/ada-tests/sptests/sp05/sp05.adb
+++ b/c/src/ada-tests/sptests/sp05/sp05.adb
@@ -20,12 +20,38 @@
-- $Id$
--
+with RTEMS;
with SPTEST;
+with TEST_SUPPORT;
procedure SP05 is
+ INIT_ID : RTEMS.ID;
+ STATUS : RTEMS.STATUS_CODES;
begin
- SPTEST.INIT( 0 );
+ RTEMS.TASK_CREATE(
+ RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
+ 1,
+ RTEMS.MINIMUM_STACK_SIZE,
+ RTEMS.NO_PREEMPT,
+ RTEMS.DEFAULT_ATTRIBUTES,
+ INIT_ID,
+ STATUS
+ );
+ TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
+
+
+ RTEMS.TASK_START(
+ INIT_ID,
+ SPTEST.INIT'ACCESS,
+ 0,
+ STATUS
+ );
+ TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
+
+ loop
+ delay 120.0;
+ end loop;
end SP05;