[Bug fortran/29712] UBOUND of non-last dimensions of assumed-size array

[pault at gcc dot gnu dot org]

------- Comment #3 from pault at gcc dot gnu dot org  2006-12-31 17:59 -------
This, at resolve.c:1578 sems to provide a fix (not regtested)-

      for (arg = expr->value.function.actual; arg; arg = arg->next)
        {
          if (inquiry && arg->next != NULL && arg->next->expr
                && arg->next->expr->expr_type != EXPR_CONSTANT)
            break;
          else if (inquiry && arg->next != NULL && arg->next->expr)
            if ((int)mpz_get_si (arg->next->expr->value.integer)
                        < arg->expr->rank)
            break;

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2006-11-04 16:32:42         |2006-12-31 17:59:40
               date|                            |


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