[Bug fortran/30882] size with initialization expression value for dim= is rejected

[pault at gcc dot gnu dot org]

------- Comment #2 from pault at gcc dot gnu dot org  2007-02-22 09:30 -------
(In reply to comment #1)
This fixes it:

Index: gcc/fortran/check.c
===================================================================
*** gcc/fortran/check.c (revision 122101)
--- gcc/fortran/check.c (working copy)
*************** dim_rank_check (gfc_expr *dim, gfc_expr
*** 337,343 ****

    ar = gfc_find_array_ref (array);
    rank = array->rank;
!   if (ar->as->type == AS_ASSUMED_SIZE && !allow_assumed)
      rank--;

    if (mpz_cmp_ui (dim->value.integer, 1) < 0
--- 337,346 ----

    ar = gfc_find_array_ref (array);
    rank = array->rank;
!   if (ar->as->type == AS_ASSUMED_SIZE
!       && !allow_assumed
!       && ar->type != AR_ELEMENT
!       && ar->type != AR_SECTION)
      rank--;

    if (mpz_cmp_ui (dim->value.integer, 1) < 0

As with other recent PRs, I cannot do anything with it for a bit - feel free to
see it to completion.

Paul


-- 


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