diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index 665dc38c1..696c99b55 100644
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -338,6 +338,10 @@ code_declaration(idf, expr, lvl, sc)
 		/* STATIC, EXTERN, GLOBAL, IMPLICIT, AUTO or REGISTER */
 		switch (def_sc)	{
 		case STATIC:
+			if (def->df_type->tp_fund == FUNCTION) {
+				/* should produce "inp $function" ??? */
+				break;
+			}
 			/*	they are handled on the spot and get an
 				integer label in EM.
 			*/