diff options
Diffstat (limited to 'testsuites/ada/support/test_support.ads')
| -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 -- |