diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-02-03 13:54:09 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-02-03 12:54:09 +0000 |
| commit | cb8728fd1349793f22149fed0de335339d747d06 (patch) | |
| tree | a5852c89d569ac8f91b49d62128b42b792c97c09 /gcc/f/expr.c | |
| parent | f0c75752a10218b95f31583594dac574626b3062 (diff) | |
| download | gcc-cb8728fd1349793f22149fed0de335339d747d06.zip gcc-cb8728fd1349793f22149fed0de335339d747d06.tar.gz gcc-cb8728fd1349793f22149fed0de335339d747d06.tar.bz2 | |
expr.c (ffeexpr_sym_impdoitem_): Allow other than default INTEGER implied-do loop counts.
2002-02-03 Toon Moene <toon@moene.indiv.nluug.nl>
* expr.c (ffeexpr_sym_impdoitem_): Allow other than
default INTEGER implied-do loop counts.
From-SVN: r49459
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index d873018..63a3a41 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -1,5 +1,6 @@ /* expr.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 1997, 1998, 2001 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -16489,10 +16490,8 @@ ffeexpr_sym_impdoitem_ (ffesymbol sp, ffelexToken t) FFETARGET_charactersizeNONE)); ffesymbol_signal_unreported (s); - if (((ffesymbol_basictype (sp) != FFEINFO_basictypeINTEGER) + if ((ffesymbol_basictype (sp) != FFEINFO_basictypeINTEGER) && (ffesymbol_basictype (sp) != FFEINFO_basictypeANY)) - || ((ffesymbol_kindtype (sp) != FFEINFO_kindtypeINTEGERDEFAULT) - && (ffesymbol_kindtype (sp) != FFEINFO_kindtypeANY))) ffesymbol_error (s, t); return s; |