--- a/stage4/generate_c/generate_c.cc	Sat Nov 17 10:08:38 2007 +0100
+++ b/stage4/generate_c/generate_c.cc	Thu Dec 06 18:01:58 2007 +0100
@@ -1457,12 +1457,11 @@
 /* B 0 - Programming Model */
 /***************************/
     void *visit(library_c *symbol) {
-      generate_location_list_c generate_location_list(&located_variables_s4o);
-      symbol->accept(generate_location_list);
-      
       for(int i = 0; i < symbol->n; i++) {
         symbol->elements[i]->accept(*this);
       }
+      generate_location_list_c generate_location_list(&located_variables_s4o);
+      symbol->accept(generate_location_list);
       return NULL;
     }
 
@@ -1477,6 +1476,15 @@
     	return NULL;
     }
 
+/********************************/
+/* B 1.3.3 - Derived data types */
+/********************************/
+    /*  TYPE type_declaration_list END_TYPE */
+    void *visit(data_type_declaration_c *symbol) {
+      symbol->accept(generate_c_pous);
+      return NULL;
+    }
+
 /**************************************/
 /* B.1.5 - Program organization units */
 /**************************************/