VMS: Fix internals test programs

[openssl.git] / test / poly1305_internal_test.c

diff --git a/test/poly1305_internal_test.c b/test/poly1305_internal_test.c
index 03b0fa91dfb2a04823687048746daaac5305c33e..1ede8747a0c8c986f533b50fcb4bac5f18971c35 100644 (file)
--- a/test/poly1305_internal_test.c
+++ b/test/poly1305_internal_test.c
@@ -14,7 +14,18 @@
 
 #include "testutil.h"
 #include "test_main_custom.h"
+
+#ifdef __VMS
+# pragma names save
+# pragma names as_is,shortened
+#endif
+
 #include "internal/poly1305.h"
+
+#ifdef __VMS
+# pragma names restore
+#endif
+
 #include "../crypto/poly1305/poly1305_local.h"
 #include "e_os.h"