diff -r b602f0459f17 -r 1ecf916cc397 stage4/generate_c/generate_c_typedecl.cc
--- a/stage4/generate_c/generate_c_typedecl.cc	Tue Jun 12 17:15:24 2012 +0100
+++ b/stage4/generate_c/generate_c_typedecl.cc	Tue Jun 12 22:32:09 2012 +0200
@@ -255,7 +255,7 @@
     case array_td:
       if (current_basetypedeclaration == arraysubrange_bd) {
         s4o_incl.print("[");
-        dimension = extract_integer_value(symbol->upper_limit) - extract_integer_value(symbol->lower_limit) + 1;
+        dimension = extract_int64_value(symbol->upper_limit) - extract_int64_value(symbol->lower_limit) + 1;
         print_integer_incl(dimension);
         s4o_incl.print("]");
       }