expr.c (ffeexpr_sym_rhs_dimlist_): Allow array elements as bounds of adjustable arrays.

2001-09-28  Robert Anderson  <rwa@alumni.princeton.edu>

	* expr.c (ffeexpr_sym_rhs_dimlist_): Allow array elements
	as bounds of adjustable arrays.

From-SVN: r45854

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index df0595c84401d23b5e34dcb14d81f29994e4bbd2..dbeab8fe52456538f3a241710a78b15e2ccc41c9 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-28  Robert Anderson  <rwa@alumni.princeton.edu>
+
+       * expr.c (ffeexpr_sym_rhs_dimlist_): Allow array elements
+       as bounds of adjustable arrays.
+
 Thu Sep 20 15:05:20 JST 2001  George Helffrich  <george@geo.titech.ac.jp>
 
        * com.c (ffecom_subscript_check_): Loosen subscript checking rules

diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 2a46a9dbddb04636554beb9b88f0024c81baecee..d8730180a040f6aacd014d421afc0671221a383e 100644 (file)
--- a/gcc/f/expr.c
+++ b/gcc/f/expr.c
@@ -1,5 +1,5 @@
 /* expr.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1998, 2001 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -17323,6 +17323,7 @@ ffeexpr_sym_rhs_dimlist_ (ffesymbol s, ffelexToken t)
               | FFESYMBOL_attrsINIT
               | FFESYMBOL_attrsNAMELIST
               | FFESYMBOL_attrsSFARG
+               | FFESYMBOL_attrsARRAY
               | FFESYMBOL_attrsTYPE)))
     na = sa | FFESYMBOL_attrsADJUSTS;
   else
@@ -17958,6 +17959,7 @@ ffeexpr_declare_parenthesized_ (ffelexToken t, bool maybe_intrin,
 
        case FFEEXPR_contextDIMLIST:
          s = ffeexpr_sym_rhs_dimlist_ (s, t);
+          bad = FALSE;
          break;
 
        case FFEEXPR_contextCHARACTERSIZE: