--- a/stage3/visit_expression_type.hh	Wed Nov 16 17:48:22 2011 +0100
+++ b/stage3/visit_expression_type.hh	Fri Nov 18 11:23:17 2011 +0100
@@ -137,6 +137,8 @@
     bool is_literal_real_type           (symbol_c *type_symbol);
     bool is_literal_bool_type           (symbol_c *type_symbol);
 
+    bool is_ANY_ELEMENTARY_OR_ENUMERATED_compatible (symbol_c *type_symbol);
+
     /* Determine the common data type between two data types.
      * If no common data type found, return NULL.
      *