2002-02-03 Toon Moene <toon@moene.indiv.nluug.nl>

	* expr.c (ffeexpr_sym_impdoitem_): Allow other than
	default INTEGER implied-do loop counts.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@49459 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 9df082b..e7a5a60 100644 (file)
--- 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 (file)
--- 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;