From 547a19cf4fcb581bd0c310bd69141031c7118295 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Tue, 19 Jul 2016 09:17:09 +0200
Subject: [PATCH] VMS: have the IVP verify that a well known engine loads
 properly

Reviewed-by: Rich Salz <rsalz@openssl.org>
---
 VMS/openssl_ivp.com.in | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/VMS/openssl_ivp.com.in b/VMS/openssl_ivp.com.in
index 3555bf6023..a4c67b26a9 100644
--- a/VMS/openssl_ivp.com.in
+++ b/VMS/openssl_ivp.com.in
@@ -32,9 +32,19 @@ $	    WRITE SYS$ERROR "Installation inconsistent"
 $	    EXIT %x00018292 ! RMS$_FNF, file not found
 $	ENDIF
 $
+$	ON ERROR THEN GOTO error
+$
 $	! If something else is wrong with the installation, we're likely
 $	! to get an image activation error here
 $	openssl version -a
 $
+$	! Verify that engines are where they should be.
+$	openssl engine -c -t dasync
+$
 $	WRITE SYS$ERROR "OpenSSL IVP passed"
 $	EXIT %x10000001
+$
+$ error:
+$	save_status = $STATUS
+$	WRITE SYS$ERROR "OpenSSL IVP failed"
+$	EXIT 'save_status'