From 7e68daea683c37416611ba2da0eb953f32c06015 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 15 Jun 1998 20:55:15 +0000
Subject: [PATCH] add check for null in dbAllocField

---
 src/dbStatic/dbStaticLib.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/dbStatic/dbStaticLib.c b/src/dbStatic/dbStaticLib.c
index 391103d5e..a1efd55b8 100644
--- a/src/dbStatic/dbStaticLib.c
+++ b/src/dbStatic/dbStaticLib.c
@@ -2621,6 +2621,10 @@ int epicsShareAPI dbAllocForm(DBENTRY *psave)
     }
     dbCopyEntryContents(psave,pdbentry);
     pflddes = pdbentry->pflddes;
+    if(!pflddes) {
+	epicsPrintf("dbAllocForm called but no field is referenced\n");
+	goto done;
+    }
     if(pflddes->field_type == DBF_DEVICE) {
         status = dbFindField(pdbentry,"INP");
         if(status) status = dbFindField(pdbentry,"OUT");