diff options
| author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 22:37:06 +0100 |
|---|---|---|
| committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-04 14:15:18 +0100 |
| commit | fd5471b6b7761a03e87a11808b57dd123ae49e31 (patch) | |
| tree | 0d268d4fd2db978715987ffd0d5498967deacd18 /testsuites/ada/support/test_support.ads | |
| parent | 6c2b8a4b35536a5f99ba1ef91139485b011dafc1 (diff) | |
ada: Check C and POSIX types
Update #3256.
Diffstat (limited to '')
| -rw-r--r-- | testsuites/ada/support/test_support.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuites/ada/support/test_support.ads b/testsuites/ada/support/test_support.ads index b1f2f55280..e3a71a33a0 100644 --- a/testsuites/ada/support/test_support.ads +++ b/testsuites/ada/support/test_support.ads @@ -28,6 +28,13 @@ package Test_Support is procedure Ada_Test_End; pragma Import (C, Ada_Test_End, "ada_test_end"); + procedure Check_Type( + t : in Long_Integer; + s : in Long_Integer; + a : in Long_Integer + ); + pragma Import (C, Check_Type, "check_type"); + -- -- Fatal_Directive_Status -- |