VMS: Fix internals test programs

[openssl.git] / test / asn1_internal_test.c

diff --git a/test/asn1_internal_test.c b/test/asn1_internal_test.c
index f936098cd9bc3432bbd95f2021db82b0ed016b4e..6dc8a1160d519ae26537ae9511f28cd6b9d98ff9 100644 (file)
--- a/test/asn1_internal_test.c
+++ b/test/asn1_internal_test.c
@@ -59,7 +59,17 @@ static int test_tbl_standard()
  *
  ***/
 
+#ifdef __VMS
+# pragma names save
+# pragma names as_is,shortened
+#endif
+
 #include "internal/asn1_int.h"
+
+#ifdef __VMS
+# pragma names restore
+#endif
+
 #include "../crypto/asn1/standard_methods.h"
 
 static int test_standard_methods()