summaryrefslogtreecommitdiffstats
path: root/testsuites/ada/mptests
diff options
context:
space:
mode:
authorSebastian Huber <sebastian.huber@embedded-brains.de>2017-12-01 08:51:17 +0100
committerSebastian Huber <sebastian.huber@embedded-brains.de>2017-12-01 09:52:41 +0100
commitf6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e (patch)
tree2a06c91d9977552a5a42292fb9cbd8094b7f6485 /testsuites/ada/mptests
parentada: Delete superfluous CONFIGURE_SPTEST (diff)
downloadrtems-f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e.tar.bz2
ada: Add standard test begin/end message
Diffstat (limited to 'testsuites/ada/mptests')
-rw-r--r--testsuites/ada/mptests/mp01/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp01/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp03/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp03/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp04/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp04/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp05/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp05/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp06/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp06/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp07/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp07/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp08/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp08/mptest.adb7
-rw-r--r--testsuites/ada/mptests/mp09/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp09/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp10/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp10/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp11/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp11/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp12/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp12/mptest.adb5
-rw-r--r--testsuites/ada/mptests/mp13/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp13/mptest.adb7
-rw-r--r--testsuites/ada/mptests/mp14/config_base.h2
-rw-r--r--testsuites/ada/mptests/mp14/mptest.adb3
26 files changed, 66 insertions, 27 deletions
diff --git a/testsuites/ada/mptests/mp01/config_base.h b/testsuites/ada/mptests/mp01/config_base.h
index 2559d1a9ae..fca97d644d 100644
--- a/testsuites/ada/mptests/mp01/config_base.h
+++ b/testsuites/ada/mptests/mp01/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 1"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp01/mptest.adb b/testsuites/ada/mptests/mp01/mptest.adb
index b76a1af8dc..457a21f58e 100644
--- a/testsuites/ada/mptests/mp01/mptest.adb
+++ b/testsuites/ada/mptests/mp01/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 1 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -221,7 +222,7 @@ package body MPTEST is
end if;
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp03/config_base.h b/testsuites/ada/mptests/mp03/config_base.h
index 2559d1a9ae..9a1c49ebaf 100644
--- a/testsuites/ada/mptests/mp03/config_base.h
+++ b/testsuites/ada/mptests/mp03/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 3"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp03/mptest.adb b/testsuites/ada/mptests/mp03/mptest.adb
index 170b62fd5d..821512e175 100644
--- a/testsuites/ada/mptests/mp03/mptest.adb
+++ b/testsuites/ada/mptests/mp03/mptest.adb
@@ -36,7 +36,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 3 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -167,7 +168,7 @@ package body MPTEST is
MPTEST.TEST_TASK_SUPPORT( 2 );
- TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp04/config_base.h b/testsuites/ada/mptests/mp04/config_base.h
index 2559d1a9ae..71aca5305a 100644
--- a/testsuites/ada/mptests/mp04/config_base.h
+++ b/testsuites/ada/mptests/mp04/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 4"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp04/mptest.adb b/testsuites/ada/mptests/mp04/mptest.adb
index a7a2bdd3ea..f888a4b324 100644
--- a/testsuites/ada/mptests/mp04/mptest.adb
+++ b/testsuites/ada/mptests/mp04/mptest.adb
@@ -38,7 +38,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 4 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -154,7 +155,7 @@ package body MPTEST is
TEXT_IO.PUT_LINE( "Local task priority has been set" );
- TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp05/config_base.h b/testsuites/ada/mptests/mp05/config_base.h
index 2559d1a9ae..2728ab2889 100644
--- a/testsuites/ada/mptests/mp05/config_base.h
+++ b/testsuites/ada/mptests/mp05/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 5"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp05/mptest.adb b/testsuites/ada/mptests/mp05/mptest.adb
index a206b80b85..a5c0818594 100644
--- a/testsuites/ada/mptests/mp05/mptest.adb
+++ b/testsuites/ada/mptests/mp05/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 5 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -238,7 +239,7 @@ package body MPTEST is
end loop;
TEXT_IO.NEW_LINE;
- TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp06/config_base.h b/testsuites/ada/mptests/mp06/config_base.h
index 2559d1a9ae..f3e3972e79 100644
--- a/testsuites/ada/mptests/mp06/config_base.h
+++ b/testsuites/ada/mptests/mp06/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 6"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp06/mptest.adb b/testsuites/ada/mptests/mp06/mptest.adb
index d4522e653b..378d46f8f7 100644
--- a/testsuites/ada/mptests/mp06/mptest.adb
+++ b/testsuites/ada/mptests/mp06/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 6 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -243,7 +244,7 @@ package body MPTEST is
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp07/config_base.h b/testsuites/ada/mptests/mp07/config_base.h
index 2559d1a9ae..7df48cd193 100644
--- a/testsuites/ada/mptests/mp07/config_base.h
+++ b/testsuites/ada/mptests/mp07/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 7"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp07/mptest.adb b/testsuites/ada/mptests/mp07/mptest.adb
index 20dbc9cd84..7354e56791 100644
--- a/testsuites/ada/mptests/mp07/mptest.adb
+++ b/testsuites/ada/mptests/mp07/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 7 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -195,7 +196,7 @@ package body MPTEST is
TEXT_IO.NEW_LINE;
- TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp08/config_base.h b/testsuites/ada/mptests/mp08/config_base.h
index 2559d1a9ae..74367e7406 100644
--- a/testsuites/ada/mptests/mp08/config_base.h
+++ b/testsuites/ada/mptests/mp08/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 8"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp08/mptest.adb b/testsuites/ada/mptests/mp08/mptest.adb
index 2910ec83e7..a812c0904d 100644
--- a/testsuites/ada/mptests/mp08/mptest.adb
+++ b/testsuites/ada/mptests/mp08/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 8 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -163,7 +164,7 @@ package body MPTEST is
TEXT_IO.PUT_LINE( "Global semaphore deleted" );
- TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
@@ -184,7 +185,7 @@ package body MPTEST is
RTEMS.SEMAPHORE.DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
- TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp09/config_base.h b/testsuites/ada/mptests/mp09/config_base.h
index 2559d1a9ae..8145297471 100644
--- a/testsuites/ada/mptests/mp09/config_base.h
+++ b/testsuites/ada/mptests/mp09/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 9"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp09/mptest.adb b/testsuites/ada/mptests/mp09/mptest.adb
index f68268788d..742f059d9d 100644
--- a/testsuites/ada/mptests/mp09/mptest.adb
+++ b/testsuites/ada/mptests/mp09/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 9 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -364,7 +365,7 @@ package body MPTEST is
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp10/config_base.h b/testsuites/ada/mptests/mp10/config_base.h
index 2559d1a9ae..72f5c759ba 100644
--- a/testsuites/ada/mptests/mp10/config_base.h
+++ b/testsuites/ada/mptests/mp10/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 10"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp10/mptest.adb b/testsuites/ada/mptests/mp10/mptest.adb
index d773976a3e..a105fe8ca6 100644
--- a/testsuites/ada/mptests/mp10/mptest.adb
+++ b/testsuites/ada/mptests/mp10/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 10 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -164,7 +165,7 @@ package body MPTEST is
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 10 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp11/config_base.h b/testsuites/ada/mptests/mp11/config_base.h
index 2559d1a9ae..c36c1bac3c 100644
--- a/testsuites/ada/mptests/mp11/config_base.h
+++ b/testsuites/ada/mptests/mp11/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 11"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp11/mptest.adb b/testsuites/ada/mptests/mp11/mptest.adb
index 9ad9f52fca..95b6904311 100644
--- a/testsuites/ada/mptests/mp11/mptest.adb
+++ b/testsuites/ada/mptests/mp11/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 11 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -127,7 +128,7 @@ package body MPTEST is
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp12/config_base.h b/testsuites/ada/mptests/mp12/config_base.h
index 2559d1a9ae..2d7952fe39 100644
--- a/testsuites/ada/mptests/mp12/config_base.h
+++ b/testsuites/ada/mptests/mp12/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 12"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp12/mptest.adb b/testsuites/ada/mptests/mp12/mptest.adb
index 74dd2e86bd..46f474fd5b 100644
--- a/testsuites/ada/mptests/mp12/mptest.adb
+++ b/testsuites/ada/mptests/mp12/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 12 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -139,7 +140,7 @@ package body MPTEST is
end if;
- TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp13/config_base.h b/testsuites/ada/mptests/mp13/config_base.h
index 2559d1a9ae..8799c9a86e 100644
--- a/testsuites/ada/mptests/mp13/config_base.h
+++ b/testsuites/ada/mptests/mp13/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 13"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp13/mptest.adb b/testsuites/ada/mptests/mp13/mptest.adb
index 6dc79ab486..a1b33551ff 100644
--- a/testsuites/ada/mptests/mp13/mptest.adb
+++ b/testsuites/ada/mptests/mp13/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 13 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
@@ -133,7 +134,7 @@ package body MPTEST is
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
- TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
@@ -314,7 +315,7 @@ package body MPTEST is
);
TEXT_IO.PUT_LINE( "semaphore_obtain correctly returned TIMEOUT" );
- TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
+ TEST_SUPPORT.ADA_TEST_END;
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
diff --git a/testsuites/ada/mptests/mp14/config_base.h b/testsuites/ada/mptests/mp14/config_base.h
index 2559d1a9ae..6d2b79dea5 100644
--- a/testsuites/ada/mptests/mp14/config_base.h
+++ b/testsuites/ada/mptests/mp14/config_base.h
@@ -20,6 +20,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
+#define ADA_TEST_NAME "ADA MP 14"
+
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
diff --git a/testsuites/ada/mptests/mp14/mptest.adb b/testsuites/ada/mptests/mp14/mptest.adb
index c795dc28bd..248ef9f2ad 100644
--- a/testsuites/ada/mptests/mp14/mptest.adb
+++ b/testsuites/ada/mptests/mp14/mptest.adb
@@ -82,7 +82,8 @@ package body MPTEST is
begin
TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 14 -- NODE " );
+ TEST_SUPPORT.ADA_TEST_BEGIN;
+ TEXT_IO.PUT( "*** NODE " );
UNSIGNED32_IO.PUT(
TEST_SUPPORT.NODE,
WIDTH => 1
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-11 10:03:59 +0000