Changeset 4b067069 in rtems for c/src/ada-tests/tmtests


Ignore:
Timestamp:
06/03/97 21:27:16 (25 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
9db72b4
Parents:
b4be04e
Message:

new file

Location:
c/src/ada-tests/tmtests
Files:
28 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada-tests/tmtests/tm02/tm02.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM02 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM02 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM02;
     57

  • c/src/ada-tests/tmtests/tm03/tm03.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM03 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM03 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM03;
     57

  • c/src/ada-tests/tmtests/tm04/tm04.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM04 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM04 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM04;
     57

  • c/src/ada-tests/tmtests/tm05/tm05.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM05 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM05 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM05;
     57

  • c/src/ada-tests/tmtests/tm06/tm06.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM06 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM06 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM06;
     57

  • c/src/ada-tests/tmtests/tm07/tm07.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM07 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM07 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM07;
     57

  • c/src/ada-tests/tmtests/tm08/tm08.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM08 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM08 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM08;
     57

  • c/src/ada-tests/tmtests/tm09/tm09.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM09 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM09 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM09;
     57

  • c/src/ada-tests/tmtests/tm10/tm10.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM10 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM10 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM10;
     57

  • c/src/ada-tests/tmtests/tm11/tm11.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM11 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM11 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM11;
     57

  • c/src/ada-tests/tmtests/tm12/tm12.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM12 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM12 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM12;
     57

  • c/src/ada-tests/tmtests/tm13/tm13.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM13 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM13 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM13;
     57

  • c/src/ada-tests/tmtests/tm14/tm14.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM14 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM14 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM14;
     57

  • c/src/ada-tests/tmtests/tm15/tm15.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM15 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM15 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM15;
     57

  • c/src/ada-tests/tmtests/tm16/tm16.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM16 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM16 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM16;
     57

  • c/src/ada-tests/tmtests/tm17/tm17.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM17 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM17 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM17;
     57

  • c/src/ada-tests/tmtests/tm18/tm18.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM18 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM18 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM18;
     57

  • c/src/ada-tests/tmtests/tm19/tm19.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM19 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM19 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM19;
     57

  • c/src/ada-tests/tmtests/tm20/tm20.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM20 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM20 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM20;
     57

  • c/src/ada-tests/tmtests/tm21/tm21.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM21 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM21 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM21;
     57

  • c/src/ada-tests/tmtests/tm22/tm22.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM22 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM22 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM22;
     57

  • c/src/ada-tests/tmtests/tm23/tm23.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM23 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM23 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM23;
     57

  • c/src/ada-tests/tmtests/tm24/tm24.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM24 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM24 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM24;
     57

  • c/src/ada-tests/tmtests/tm25/tm25.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM25 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM25 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM25;
     57

  • c/src/ada-tests/tmtests/tm26/tm26.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM26 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM26 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM26;
     57

  • c/src/ada-tests/tmtests/tm27/tm27.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM27 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM27 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM27;
     57

  • c/src/ada-tests/tmtests/tm28/tm28.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM28 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM28 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM28;
     57

  • c/src/ada-tests/tmtests/tm29/tm29.adb

    rb4be04e r4b067069  
     1--
     2--  MAIN / BODY
     3--
     4--  DESCRIPTION:
     5--
     6--  This is the entry point for Test TM29 of the Single Processor Test Suite.
     7--
     8--  DEPENDENCIES:
     9--
     10-- 
     11--
     12--  COPYRIGHT (c) 1989-1997.
     13--  On-Line Applications Research Corporation (OAR).
     14--  Copyright assigned to U.S. Government, 1994.
     15--
     16--  The license and distribution terms for this file may in
     17--  the file LICENSE in this distribution or at
     18--  http://www.OARcorp.com/rtems/license.html.
     19--
     20--  $Id$
     21--
     22
     23with RTEMS;
     24with TMTEST;
     25with TEST_SUPPORT;
     26
     27procedure TM29 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
     30begin
     31
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      TMTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
     55
     56end TM29;
     57
Note: See TracChangeset for help on using the changeset viewer.