From 3b4fb53221cb13d3affd63477fc17a81978838f6 Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Wed, 9 Nov 2011 14:23:17 +0000
Subject: fclose streams in fips_drbvs.c

Produced error message for unsupported curves in fips_ecdhvs.c
---
 fips/rand/fips_drbgvs.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'fips/rand/fips_drbgvs.c')

diff --git a/fips/rand/fips_drbgvs.c b/fips/rand/fips_drbgvs.c
index bcdfa6dac3..9aae88c3e1 100644
--- a/fips/rand/fips_drbgvs.c
+++ b/fips/rand/fips_drbgvs.c
@@ -176,7 +176,7 @@ int fips_drbgvs_main(int argc,char **argv)
 int main(int argc,char **argv)
 #endif
 	{
-	FILE *in, *out;
+	FILE *in = NULL, *out = NULL;
 	DRBG_CTX *dctx = NULL;
 	TEST_ENT t;
 	int r, nid = 0;
@@ -406,6 +406,10 @@ int main(int argc,char **argv)
 			}
 
 		}
+	if (in && in != stdin)
+		fclose(in);
+	if (out && out != stdout)
+		fclose(out);
 	return 0;
 	}
 
-- 
cgit v1.2.3