This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/36746] Rejects variable which is implictly typed as derived typed with DIMENSION
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 6 Jul 2008 20:11:05 -0000
- Subject: [Bug fortran/36746] Rejects variable which is implictly typed as derived typed with DIMENSION
- References: <bug-36746-16425@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla 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