mirror of
https://gitlab.rtems.org/rtems/rtos/rtems.git
synced 2025-12-26 22:48:23 +00:00
f435621be9
* sptests/sp19/sptest.adb: Modified to follow pattern of SP01 even though this test is not supported. * sptests/sp19/sp19.adb: New file.
51 lines
962 B
Ada
51 lines
962 B
Ada
--
|
|
-- SPTEST / BODY
|
|
--
|
|
-- DESCRIPTION:
|
|
--
|
|
-- This package is the implementation of Test 19 of the RTEMS
|
|
-- 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 INTERFACES; use INTERFACES;
|
|
with RTEMS;
|
|
with TEST_SUPPORT;
|
|
with TEXT_IO;
|
|
|
|
package body SPTEST is
|
|
|
|
--PAGE
|
|
--
|
|
-- INIT
|
|
--
|
|
|
|
procedure INIT (
|
|
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
) is
|
|
TIME : RTEMS.TIME_OF_DAY;
|
|
STATUS : RTEMS.STATUS_CODES;
|
|
begin
|
|
|
|
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 INIT;
|
|
|
|
end SPTEST;
|