From cb8728fd1349793f22149fed0de335339d747d06 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sun, 3 Feb 2002 13:54:09 +0100 Subject: [PATCH] expr.c (ffeexpr_sym_impdoitem_): Allow other than default INTEGER implied-do loop counts. 2002-02-03 Toon Moene * expr.c (ffeexpr_sym_impdoitem_): Allow other than default INTEGER implied-do loop counts. From-SVN: r49459 --- gcc/f/ChangeLog | 5 +++++ gcc/f/expr.c | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 9df082b8bfa..e7a5a603cf1 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2002-02-03 Toon Moene + + * expr.c (ffeexpr_sym_impdoitem_): Allow other than + default INTEGER implied-do loop counts. + 2002-02-01 Toon Moene * bad.def: Remove non-historical reference to version 0.6. diff --git a/gcc/f/expr.c b/gcc/f/expr.c index d8730180a04..63a3a419ff3 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;