From d78307e7987a5ff37aff1ff146d0812906e3439d Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Wed, 27 Mar 2002 13:38:59 +0000
Subject: [PATCH] return -1 if result is nan

---
 src/libCom/calc/calcPerform.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/libCom/calc/calcPerform.c b/src/libCom/calc/calcPerform.c
index 9984aae42..459c9fb2d 100644
--- a/src/libCom/calc/calcPerform.c
+++ b/src/libCom/calc/calcPerform.c
@@ -105,6 +105,7 @@
 #include	<stdio.h>
 #include	<string.h>
 #include	<math.h>
+#include	<epicsMath.h>
 
 #include	"dbDefs.h"
 
@@ -511,7 +512,7 @@ printf ("*FINISHED*\n");
 		*presult = *pstacktop;
 	else
 		return(-1);
-	return(0);
+	return((epicsIsNAN(*presult) ? -1 : 0));
 }