--- a/absyntax_utils/search_base_type.cc	Fri Sep 09 12:03:15 2011 +0200
+++ b/absyntax_utils/search_base_type.cc	Wed Sep 14 22:58:39 2011 +0200
@@ -227,7 +227,8 @@
 
 /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */
 void *search_base_type_c::visit(array_specification_c *symbol)	{
-  if (NULL == this->current_type_name) ERROR;
+  if (NULL == this->current_type_name)
+	this->current_type_name = symbol->non_generic_type_name;
   return symbol->non_generic_type_name->accept(*this);
 }