1 files changed, 3 insertions, 2 deletions
diff --git a/testsuites/ada/sptests/spatcb01/spatcb01.adb b/testsuites/ada/sptests/spatcb01/spatcb01.adb
index 19aaa8031f..810446f871 100644
--- a/testsuites/ada/sptests/spatcb01/spatcb01.adb
+++ b/testsuites/ada/sptests/spatcb01/spatcb01.adb
@@ -14,13 +14,14 @@
 --
 
 with TEXT_IO;
+with TEST_SUPPORT;
 with System.Task_Primitives.Operations;
 with System.Tasking;
 
 procedure SPATCB01 is
   Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self;
 begin
-  TEXT_IO.PUT_LINE( "*** BEGIN OF TEST SPATCB 1 ***" );
+  TEST_SUPPORT.ADA_TEST_BEGIN;
   TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) );
-  TEXT_IO.PUT_LINE( "*** END OF TEST SPATCB 1 ***" );
+  TEST_SUPPORT.ADA_TEST_END;
 end SPATCB01;