[Bug fortran/36746] Rejects variable which is implictly typed as derived typed with DIMENSION

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2008-07-06 20:11 -------
I think the problem is in gfc_match_rvalue():

    case FL_VARIABLE:
    variable:
      if (sym->ts.type == BT_UNKNOWN && gfc_peek_ascii_char () == '%'
          && gfc_get_default_type (sym, sym->ns)->type == BT_DERIVED)
        gfc_set_default_type (sym, 0, sym->ns);

Here, the gfc_peek_ascii_char does not work as the array reference precedes the
% sign.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36746