3 files changed, 64 insertions, 0 deletions
diff --git a/testsuites/sptests/spfatal04/Makefile.am b/testsuites/sptests/spfatal04/Makefile.am
new file mode 100644
index 0000000000..6f1bf8d73a
--- /dev/null
+++ b/testsuites/sptests/spfatal04/Makefile.am
@@ -0,0 +1,27 @@
+##
+## $Id$
+##
+
+MANAGERS = all
+
+rtems_tests_PROGRAMS = spfatal04.exe
+spfatal04_exe_SOURCES = ../spfatal_support/init.c ../spfatal_support/system.h testcase.h
+
+dist_rtems_tests_DATA = spfatal04.scn
+
+include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg
+include $(top_srcdir)/../automake/compile.am
+include $(top_srcdir)/../automake/leaf.am
+
+spfatal04_exe_LDADD = $(MANAGERS_NOT_WANTED:%=$(PROJECT_LIB)/no-%.rel)
+
+AM_CPPFLAGS += -I$(top_srcdir)/../support/include
+
+LINK_OBJS = $(spfatal04_exe_OBJECTS) $(spfatal04_exe_LDADD)
+LINK_LIBS = $(spfatal04_exe_LDLIBS)
+
+spfatal04.exe$(EXEEXT): $(spfatal04_exe_OBJECTS) $(spfatal04_exe_DEPENDENCIES)
+	@rm -f spfatal04.exe$(EXEEXT)
+	$(make-exe)
+
+include $(top_srcdir)/../automake/local.am
diff --git a/testsuites/sptests/spfatal04/spfatal04.scn b/testsuites/sptests/spfatal04/spfatal04.scn
new file mode 100644
index 0000000000..680fcfeb55
--- /dev/null
+++ b/testsuites/sptests/spfatal04/spfatal04.scn
@@ -0,0 +1 @@
+Fatal error (Classic API call rtems_fatal_error_occurred) hit
diff --git a/testsuites/sptests/spfatal04/testcase.h b/testsuites/sptests/spfatal04/testcase.h
new file mode 100644
index 0000000000..960e68e2d2
--- /dev/null
+++ b/testsuites/sptests/spfatal04/testcase.h
@@ -0,0 +1,36 @@
+/*
+ * Classic API Init task create failure
+ *
+ *  $Id$
+ */
+
+/*
+ *  Way too much stack space.  Should generate a fatal error
+ *  on the init task create.
+ */
+#define CONFIGURE_HAS_OWN_INIT_TASK_TABLE
+#define CONFIGURE_INIT_TASK_STACK_SIZE   RTEMS_MINIMUM_STACK_SIZE
+rtems_initialization_tasks_table Initialization_tasks[] = {
+  { rtems_build_name('I', 'N', 'I', ' '),
+    RTEMS_MINIMUM_STACK_SIZE,
+    1,
+    RTEMS_DEFAULT_ATTRIBUTES,
+    Init,
+    RTEMS_DEFAULT_MODES,
+    0
+  }
+};
+#define CONFIGURE_INIT_TASK_TABLE Initialization_tasks
+#define CONFIGURE_INIT_TASK_TABLE_SIZE \
+  sizeof(CONFIGURE_INIT_TASK_TABLE) / sizeof(rtems_initialization_tasks_table)
+
+#define FATAL_ERROR_DESCRIPTION          "Classic API call rtems_fatal_error_occurred"
+#define FATAL_ERROR_EXPECTED_SOURCE      INTERNAL_ERROR_RTEMS_API
+#define FATAL_ERROR_EXPECTED_IS_INTERNAL FALSE
+#define FATAL_ERROR_EXPECTED_ERROR       0xdead
+
+void force_error()
+{
+  rtems_fatal_error_occurred( 0xdead );
+  /* we will not run this far */
+}