Rombobjörn

summaryrefslogtreecommitdiff
path: root/test/thread_wrapping.ads
blob: a7e3487d9f763fdbdde92580b639c153f29a6128 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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;