diff options
| author | Mark Adler <madler@alumni.caltech.edu> | 2011-09-09 23:23:45 -0700 |
|---|---|---|
| committer | Mark Adler <madler@alumni.caltech.edu> | 2011-09-09 23:23:45 -0700 |
| commit | 7a6955760ba950eb82f57929f8f6c9847c65f0af (patch) | |
| tree | e2cd657aca6d606e0b28bf57fe45e914717a334c /contrib/ada/mtest.adb | |
| parent | f0e76a6634eb26e3ddc6dfc6f2489553eff8c8f4 (diff) | |
| download | zlib-7a6955760ba950eb82f57929f8f6c9847c65f0af.tar.gz zlib-7a6955760ba950eb82f57929f8f6c9847c65f0af.tar.bz2 zlib-7a6955760ba950eb82f57929f8f6c9847c65f0af.zip | |
zlib 1.2.1.2v1.2.1.2
Diffstat (limited to 'contrib/ada/mtest.adb')
| -rw-r--r-- | contrib/ada/mtest.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/contrib/ada/mtest.adb b/contrib/ada/mtest.adb index 91a96cd..c4dfd08 100644 --- a/contrib/ada/mtest.adb +++ b/contrib/ada/mtest.adb | |||
| @@ -5,10 +5,10 @@ | |||
| 5 | -- -- | 5 | -- -- |
| 6 | -- Open source license information is in the zlib.ads file. -- | 6 | -- Open source license information is in the zlib.ads file. -- |
| 7 | ---------------------------------------------------------------- | 7 | ---------------------------------------------------------------- |
| 8 | -- Continuous test for ZLib multithreading. If the test is fail | 8 | -- Continuous test for ZLib multithreading. If the test would fail |
| 9 | -- Wou should provide thread safe allocation routines for the Z_Stream. | 9 | -- we should provide thread safe allocation routines for the Z_Stream. |
| 10 | -- | 10 | -- |
| 11 | -- $Id: mtest.adb,v 1.2 2003/08/12 12:11:05 vagul Exp $ | 11 | -- $Id: mtest.adb,v 1.4 2004/07/23 07:49:54 vagul Exp $ |
| 12 | 12 | ||
| 13 | with ZLib; | 13 | with ZLib; |
| 14 | with Ada.Streams; | 14 | with Ada.Streams; |
| @@ -148,6 +148,9 @@ procedure MTest is | |||
| 148 | 148 | ||
| 149 | pragma Unreferenced (Test); | 149 | pragma Unreferenced (Test); |
| 150 | 150 | ||
| 151 | Dummy : Character; | ||
| 152 | |||
| 151 | begin | 153 | begin |
| 152 | null; | 154 | Ada.Text_IO.Get_Immediate (Dummy); |
| 155 | Stop := True; | ||
| 153 | end MTest; | 156 | end MTest; |