diff options
Diffstat (limited to 'contrib/gcc/f/expr.c')
| -rw-r--r-- | contrib/gcc/f/expr.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/gcc/f/expr.c b/contrib/gcc/f/expr.c index 67b3765bd2a0..d8730180a040 100644 --- a/contrib/gcc/f/expr.c +++ b/contrib/gcc/f/expr.c @@ -1,5 +1,5 @@ /* expr.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995-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. @@ -13162,7 +13162,7 @@ again: /* :::::::::::::::::::: */ error = (expr == NULL) || ((ffeinfo_rank (info) != 0) ? ffe_is_pedantic () /* F77 C5. */ - : (ffeinfo_kindtype (info) != ffecom_label_kind ())) + : (bool) (ffeinfo_kindtype (info) != ffecom_label_kind ())) || (ffebld_op (expr) != FFEBLD_opSYMTER); break; @@ -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: |