diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 21:27:16 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 21:27:16 +0000 |
commit | 4b06706929fdb9ce6d9a2ea1726ca8cfa5156023 (patch) | |
tree | 08b8ada17c3058a2db59fd66953be045519aba37 /c/src/ada-tests/tmtests/tm09/tm09.adb | |
parent | Removed Configuration Table information. (diff) | |
download | rtems-4b06706929fdb9ce6d9a2ea1726ca8cfa5156023.tar.bz2 |
new file
Diffstat (limited to 'c/src/ada-tests/tmtests/tm09/tm09.adb')
-rw-r--r-- | c/src/ada-tests/tmtests/tm09/tm09.adb | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/c/src/ada-tests/tmtests/tm09/tm09.adb b/c/src/ada-tests/tmtests/tm09/tm09.adb index e69de29bb2..e74f1c9817 100644 --- a/c/src/ada-tests/tmtests/tm09/tm09.adb +++ b/c/src/ada-tests/tmtests/tm09/tm09.adb @@ -0,0 +1,57 @@ +-- +-- MAIN / BODY +-- +-- DESCRIPTION: +-- +-- This is the entry point for Test TM09 of the Single Processor Test Suite. +-- +-- DEPENDENCIES: +-- +-- +-- +-- COPYRIGHT (c) 1989-1997. +-- On-Line Applications Research Corporation (OAR). +-- Copyright assigned to U.S. Government, 1994. +-- +-- The license and distribution terms for this file may in +-- the file LICENSE in this distribution or at +-- http://www.OARcorp.com/rtems/license.html. +-- +-- $Id$ +-- + +with RTEMS; +with TMTEST; +with TEST_SUPPORT; + +procedure TM09 is + INIT_ID : RTEMS.ID; + STATUS : RTEMS.STATUS_CODES; +begin + + 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, + TMTEST.INIT'ACCESS, + 0, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); + + loop + delay 120.0; + end loop; + +end TM09; + |