}
 
 DEFINE_MATCH(formal_parameter)
+DEFINE_MATCH(subrange)
 
 bool match_all(Dwarf_Die *die)
 {
 DEFINE_PROCESS_TYPE(volatile)
 DEFINE_PROCESS_TYPE(typedef)
 
+static void process_subrange_type(struct state *state, struct die *cache,
+                                 Dwarf_Die *die)
+{
+       Dwarf_Word count = 0;
+
+       if (get_udata_attr(die, DW_AT_count, &count))
+               process_fmt(cache, "[%" PRIu64 "]", count);
+       else if (get_udata_attr(die, DW_AT_upper_bound, &count))
+               process_fmt(cache, "[%" PRIu64 "]", count + 1);
+       else
+               process(cache, "[]");
+}
+
+static void process_array_type(struct state *state, struct die *cache,
+                              Dwarf_Die *die)
+{
+       process(cache, "array_type");
+       /* Array size */
+       check(process_die_container(state, cache, die, process_type,
+                                   match_subrange_type));
+       process(cache, " {");
+       process_linebreak(cache, 1);
+       process_type_attr(state, cache, die);
+       process_linebreak(cache, -1);
+       process(cache, "}");
+}
+
 static void __process_subroutine_type(struct state *state, struct die *cache,
                                      Dwarf_Die *die, const char *type)
 {
        PROCESS_TYPE(volatile)
        /* Subtypes */
        PROCESS_TYPE(formal_parameter)
+       PROCESS_TYPE(subrange)
        /* Other types */
+       PROCESS_TYPE(array)
        PROCESS_TYPE(base)
        PROCESS_TYPE(subroutine)
        PROCESS_TYPE(typedef)