2002-08-26 Joel Sherrill <joel@OARcorp.com>

* sptests/sp19/sptest.adb: Modified to follow pattern of SP01
	even though this test is not supported.
	* sptests/sp19/sp19.adb: New file.

c/src/ada-tests/ChangeLog

@@ -1,3 +1,9 @@
+2002-08-26	Joel Sherrill <joel@OARcorp.com>
+
+	* sptests/sp19/sptest.adb: Modified to follow pattern of SP01
+	even though this test is not supported.
+	* sptests/sp19/sp19.adb: New file.
+
 2002-08-26	Joel Sherrill <joel@OARcorp.com>
 
 	* mptests/mp01/mptest.ads, mptests/mp02/mptest.ads,

c/src/ada-tests/sptests/sp19/sp19.adb

@@ -0,0 +1,57 @@
+--
+--  MAIN / BODY
+--
+--  DESCRIPTION:
+--
+--  This is the entry point for Test SP19 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 SPTEST;
+with TEST_SUPPORT;
+
+procedure SP19 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.FLOATING_POINT,
+      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 SP19;
+

c/src/ada-tests/sptests/sp19/sptest.adb

@@ -1,9 +1,10 @@
 --
---  MAIN / BODY
+--  SPTEST / BODY
 --
 --  DESCRIPTION:
 --
---  This is the entry point for Test SP19 of the Single Processor Test Suite.
+--  This package is the implementation of Test 19 of the RTEMS
+--  Single Processor Test Suite.
 --
 --  DEPENDENCIES: 
 --
@@ -20,38 +21,30 @@
 --  $Id$
 --
 
+with INTERFACES; use INTERFACES;
 with RTEMS;
-with SPTEST;
 with TEST_SUPPORT;
+with TEXT_IO;
 
-procedure SP19 is
+package body SPTEST is
-  INIT_ID : RTEMS.ID;
+
+--PAGE
+-- 
+--  INIT
+--
+
+   procedure INIT (
+      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+   ) is
+      TIME   : RTEMS.TIME_OF_DAY;
       STATUS : RTEMS.STATUS_CODES;
    begin
 
-   RTEMS.TASK_CREATE(
+      TEXT_IO.NEW_LINE( 2 );
-      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
+      TEXT_IO.PUT_LINE( "*** TEST 19***" );
-      1,
+      TEXT_IO.PUT_LINE( "Not currently implemented" );
-      RTEMS.MINIMUM_STACK_SIZE,
+      TEXT_IO.PUT_LINE( "*** END OF TEST 19***" );
-      RTEMS.NO_PREEMPT,
-      RTEMS.FLOATING_POINT,
-      INIT_ID,
-      STATUS
-   );
-   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
 
+   end INIT;
 
-   RTEMS.TASK_START(
+end SPTEST;
-      INIT_ID,
-      SPTEST.INIT'ACCESS,
-      0,
-      STATUS
-   );
-   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
-
-   loop
-      delay 120.0;
-   end loop;
-
-end SP19;
-