diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-09-28 06:21:55 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-09-28 06:21:55 +0000 |
| commit | 00482daf9415b9362b30f39e8f294d0c53047e4c (patch) | |
| tree | fac331b6e84f0592a67d842188ca98253c04be98 /gcc | |
| parent | 09e5310a160803f130947781412482a93c70e802 (diff) | |
| download | gcc-00482daf9415b9362b30f39e8f294d0c53047e4c.tar.gz | |
2001-09-28 Robert Anderson <rwa@alumni.princeton.edu>
* expr.c (ffeexpr_sym_rhs_dimlist_): Allow array elements
as bounds of adjustable arrays.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45854 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/expr.c | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index df0595c8440..dbeab8fe524 100644 --- 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 2a46a9dbddb..d8730180a04 100644 --- 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: |