diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog
index f69330540d..641a1333f7 100644
--- a/c/src/ada-tests/ChangeLog
+++ b/c/src/ada-tests/ChangeLog
@@ -1,3 +1,9 @@
+2002-08-27	Ralf Corsepius <corsepiu@faw.uni-ulm.de>
+
+	* sptests/sp19/sptest.adb: Remove.
+	* sptests/sp19/Makefile.am: Let m4 generate sptests.adb from
+	sptests.adp.
+
 2002-08-27	Joel Sherrill <joel@OARcorp.com>
 
 	* sptests/sp21/sptest.adb: Fixed IO_Initialize invocations to
diff --git a/c/src/ada-tests/sptests/sp19/Makefile.am b/c/src/ada-tests/sptests/sp19/Makefile.am
index 642a712e63..94ab737080 100644
--- a/c/src/ada-tests/sptests/sp19/Makefile.am
+++ b/c/src/ada-tests/sptests/sp19/Makefile.am
@@ -6,15 +6,19 @@ include $(top_srcdir)/../../../automake/lib.am
 
 include $(top_srcdir)/ada.am
 
+AM_ADAFLAGS += -I.
+
 if EXPADA
 noinst_PROGRAMS = sp19
 endif
 
-sp19_SOURCES = sp19.adb config.h sptest.ads
+sp19_SOURCES = sp19.adb sptest.adb config.h sptest.ads
 
-# FIXME: Missing sptest.adb
+sptest.adb: sptest.adp
+	pwd=`pwd` && cd $(srcdir) && $(M4) < sptest.adp > $${pwd}/sptest.adb
+CLEANFILES += sptest.adb
 
-sp19$(EXEEXT): sp19.adb
+sp19$(EXEEXT): sp19.adb sptest.adb sptest.ads
 	$(GNATCOMPILE) -margs -a $< -o $@
 
 EXTRA_DIST = sp19.scn
diff --git a/c/src/ada-tests/sptests/sp19/sptest.adb b/c/src/ada-tests/sptests/sp19/sptest.adb
deleted file mode 100644
index dad0efa329..0000000000
--- a/c/src/ada-tests/sptests/sp19/sptest.adb
+++ /dev/null
@@ -1,50 +0,0 @@
---
---  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;