1 files changed, 13 insertions, 0 deletions
diff --git a/test/thread_wrapping.ads b/test/thread_wrapping.ads
new file mode 100644
index 0000000..a7e3487
--- /dev/null
+++ b/test/thread_wrapping.ads
@@ -0,0 +1,13 @@
+-- The Ada Milter API test milter
+-- Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This program is free software: you can redistribute it and/or modify it
+-- under the terms of the GNU General Public License version 3, as published
+-- by the Free Software Foundation.
+
+
+package Thread_Wrapping is
+   pragma Elaborate_Body;
+   -- Elaborating the spec and the body together isn't important, but without
+   -- this pragma this package wouldn't be allowed to have a body.
+end Thread_Wrapping;