VMS: Fix internals test programs

[openssl.git] / test / x509_internal_test.c

diff --git a/test/x509_internal_test.c b/test/x509_internal_test.c
index d602efc57f50aeee5ed2383d59cdca3053a7d07f..0a3a9beacd1cf8c904e3e16ba38fbb6e73d8e641 100644 (file)
--- a/test/x509_internal_test.c
+++ b/test/x509_internal_test.c
@@ -24,9 +24,18 @@
  *
  ***/
 
+#ifdef __VMS
+# pragma names save
+# pragma names as_is,shortened
+#endif
+
 #include "../crypto/x509v3/ext_dat.h"
 #include "../crypto/x509v3/standard_exts.h"
 
+#ifdef __VMS
+# pragma names restore
+#endif
+
 static int test_standard_exts()
 {
     size_t i;