1 files changed, 18 insertions, 2 deletions

diff --git a/c/src/ada-tests/sptests/sp11/sptest.adb b/c/src/ada-tests/sptests/sp11/sptest.adb
index 306ed31a39..bfbff5d138 100644
--- a/c/src/ada-tests/sptests/sp11/sptest.adb
+++ b/c/src/ada-tests/sptests/sp11/sptest.adb
@@ -10,7 +10,7 @@
 --
 --  
 --
---  COPYRIGHT (c) 1989-1997.
+--  COPYRIGHT (c) 1989-2009.
 --  On-Line Applications Research Corporation (OAR).
 --
 --  The license and distribution terms for this file may in
@@ -21,7 +21,6 @@
 --
 
 with INTERFACES; use INTERFACES;
-with RTEMS;
 with TEST_SUPPORT;
 with TEXT_IO;
 with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
    procedure INIT (
       ARGUMENT : in     RTEMS.TASK_ARGUMENT
    ) is
+      pragma Unreferenced(ARGUMENT);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -145,6 +145,7 @@ package body SPTEST is
    procedure TASK_1 (
       ARGUMENT : in     RTEMS.TASK_ARGUMENT
    ) is
+      pragma Unreferenced(ARGUMENT);
       EVENTOUT : RTEMS.EVENT_SET;
       TIME     : RTEMS.TIME_OF_DAY;
       STATUS   : RTEMS.STATUS_CODES;
@@ -636,6 +637,7 @@ package body SPTEST is
    procedure TASK_2 (
       ARGUMENT : in     RTEMS.TASK_ARGUMENT
    ) is
+      pragma Unreferenced(ARGUMENT);
       EVENTOUT : RTEMS.EVENT_SET;
       TIME     : RTEMS.TIME_OF_DAY;
       STATUS   : RTEMS.STATUS_CODES;
@@ -780,6 +782,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -798,6 +802,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -816,6 +822,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -834,6 +842,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -852,6 +862,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -870,6 +882,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin
 
@@ -888,6 +902,8 @@ package body SPTEST is
       IGNORED_ADDRESS : in     RTEMS.ADDRESS
    )
    is
+      pragma Unreferenced(IGNORED_ID);
+      pragma Unreferenced(IGNORED_ADDRESS);
       STATUS : RTEMS.STATUS_CODES;
    begin