134     

   134     

   135     bool is_nonneg_literal_integer_type (symbol_c *type_symbol);

   135     bool is_nonneg_literal_integer_type (symbol_c *type_symbol);

   136     bool is_literal_integer_type        (symbol_c *type_symbol);

   136     bool is_literal_integer_type        (symbol_c *type_symbol);

   137     bool is_literal_real_type           (symbol_c *type_symbol);

   137     bool is_literal_real_type           (symbol_c *type_symbol);

   138     bool is_literal_bool_type           (symbol_c *type_symbol);

   138     bool is_literal_bool_type           (symbol_c *type_symbol);

   139 

   141 

   140     /* Determine the common data type between two data types.

   142     /* Determine the common data type between two data types.

   141      * If no common data type found, return NULL.

   143      * If no common data type found, return NULL.

   142      *

   144      *

   143      * If data types are identical, return the first (any would do...).

   145      * If data types are identical, return the first (any would do...).