------- Comment #2 from jvdelisle at gcc dot gnu dot org 2008-03-15 18:07
-------
Think I have a fix. Regression testing.
Index: resolve.c
===================================================================
--- resolve.c (revision 133251)
+++ resolve.c (working copy)
@@ -967,7 +967,7 @@ check_assumed_size_reference (gfc_symbol
last = (ref->u.ar.end[dim] == NULL)
&& (ref->u.ar.type == DIMEN_ELEMENT);
- if (last)
+ if (need_full_assumed_size && last)
{
gfc_error ("The upper bound in the last dimension must "
"appear in the reference to the assumed size "
--
jvdelisle at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |jvdelisle at gcc dot gnu dot
|dot org |org
Status|NEW |ASSIGNED
Last reconfirmed|2008-03-05 22:00:12 |2008-03-15 18:07:40
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35470
