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.

3 files changed, 85 insertions, 29 deletions

diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog
index 980b1dd47f..a5a19b5185 100644
--- a/c/src/ada-tests/ChangeLog
+++ b/c/src/ada-tests/ChangeLog
@@ -1,5 +1,11 @@
 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,
 	mptests/mp03/mptest.ads, mptests/mp04/mptest.ads,
 	mptests/mp05/mptest.ads, mptests/mp06/mptest.ads,
diff --git a/c/src/ada-tests/sptests/sp19/sp19.adb b/c/src/ada-tests/sptests/sp19/sp19.adb
new file mode 100644
index 0000000000..61a5107332
--- /dev/null
+++ b/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;
+
diff --git a/c/src/ada-tests/sptests/sp19/sptest.adb b/c/src/ada-tests/sptests/sp19/sptest.adb
index 61a5107332..dad0efa329 100644
--- a/c/src/ada-tests/sptests/sp19/sptest.adb
+++ b/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
-  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" );
+package body SPTEST is
 
+--PAGE
+-- 
+--  INIT
+--
 
-   RTEMS.TASK_START(
-      INIT_ID,
-      SPTEST.INIT'ACCESS,
-      0,
-      STATUS
-   );
-   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
+   procedure INIT (
+      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+   ) is
+      TIME   : RTEMS.TIME_OF_DAY;
+      STATUS : RTEMS.STATUS_CODES;
+   begin
 
-   loop
-      delay 120.0;
-   end loop;
+      TEXT_IO.NEW_LINE( 2 );
+      TEXT_IO.PUT_LINE( "*** TEST 19***" );
+      TEXT_IO.PUT_LINE( "Not currently implemented" );
+      TEXT_IO.PUT_LINE( "*** END OF TEST 19***" );
 
-end SP19;
+   end INIT;
 
+end SPTEST;