MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Robert Anderson 2001-09-28 06:21:55 +00:00 committed by Toon Moene
parent b97d4c0b00
commit c0636171db
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -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> Thu Sep 20 15:05:20 JST 2001 George Helffrich <george@geo.titech.ac.jp>
* com.c (ffecom_subscript_check_): Loosen subscript checking rules * com.c (ffecom_subscript_check_): Loosen subscript checking rules

4
gcc/f/expr.c
View File

@ -1,5 +1,5 @@
/* expr.c -- Implementation File (module.c template V1.0) /* 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. Contributed by James Craig Burley.
This file is part of GNU Fortran. This file is part of GNU Fortran.
@ -17323,6 +17323,7 @@ ffeexpr_sym_rhs_dimlist_ (ffesymbol s, ffelexToken t)
| FFESYMBOL_attrsINIT | FFESYMBOL_attrsINIT
| FFESYMBOL_attrsNAMELIST | FFESYMBOL_attrsNAMELIST
| FFESYMBOL_attrsSFARG | FFESYMBOL_attrsSFARG
| FFESYMBOL_attrsARRAY
| FFESYMBOL_attrsTYPE))) | FFESYMBOL_attrsTYPE)))
na = sa | FFESYMBOL_attrsADJUSTS; na = sa | FFESYMBOL_attrsADJUSTS;
else else
@ -17958,6 +17959,7 @@ ffeexpr_declare_parenthesized_ (ffelexToken t, bool maybe_intrin,
case FFEEXPR_contextDIMLIST: case FFEEXPR_contextDIMLIST:
s = ffeexpr_sym_rhs_dimlist_ (s, t); s = ffeexpr_sym_rhs_dimlist_ (s, t);
bad = FALSE;
break; break;
case FFEEXPR_contextCHARACTERSIZE: case FFEEXPR_contextCHARACTERSIZE: