diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/expr.c | 7 |
2 files changed, 8 insertions, 4 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 9df082b..e7a5a60 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2002-02-03 Toon Moene <toon@moene.indiv.nluug.nl> + + * expr.c (ffeexpr_sym_impdoitem_): Allow other than + default INTEGER implied-do loop counts. + 2002-02-01 Toon Moene <toon@moene.indiv.nluug.nl> * bad.def: Remove non-historical reference to version 0.6. 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; |