--- a/stage3/visit_expression_type.hh	Fri Nov 04 19:16:29 2011 +0000
+++ b/stage3/visit_expression_type.hh	Sun Nov 20 19:36:48 2011 +0000
@@ -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.
      *