summaryrefslogtreecommitdiffstats
path: root/testsuites/ada/mptests/mp01/mptest.adb
diff options
context:
space:
mode:
Diffstat (limited to 'testsuites/ada/mptests/mp01/mptest.adb')
-rw-r--r--testsuites/ada/mptests/mp01/mptest.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuites/ada/mptests/mp01/mptest.adb b/testsuites/ada/mptests/mp01/mptest.adb
index 457a21f58e..a652428ee7 100644
--- a/testsuites/ada/mptests/mp01/mptest.adb
+++ b/testsuites/ada/mptests/mp01/mptest.adb
@@ -19,9 +19,7 @@
--
with INTERFACES; use INTERFACES;
-with RTEMS;
with RTEMS.CLOCK;
-with RTEMS.TASKS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -35,6 +33,7 @@ package body MPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
C : CHARACTER;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
@@ -139,6 +138,7 @@ package body MPTEST is
procedure TEST_TASK (
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
TID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;