[Fortran, committed] Fix for PR fortran/5122.

[Toon Moene]

L.S.,

The attached patch is a fix for Fortran PR 5122.  Make bootstrap (C and
Fortran), make check (Fortran only) and make install on
i686-pc-linux-gnu.

A regression test is committed as 

	.../testsuite/g77.f-torture/execute/5122.f

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)
-------------- next part --------------
2002-02-03  Toon Moene  <toon@moene.indiv.nluug.nl>

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

*** expr.c.orig	Thu Sep 27 23:15:05 2001
--- expr.c	Sun Feb  3 11:48:55 2002
***************
*** 1,4 ****
  /* expr.c -- Implementation File (module.c template V1.0)
!    Copyright (C) 1995, 1996, 1997, 1998, 2001 Free Software Foundation, Inc.
     Contributed by James Craig Burley.
  
--- 1,5 ----
  /* expr.c -- Implementation File (module.c template V1.0)
!    Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002
!    Free Software Foundation, Inc.
     Contributed by James Craig Burley.
  
*************** ffeexpr_sym_impdoitem_ (ffesymbol sp, ff
*** 16490,16497 ****
    ffesymbol_signal_unreported (s);
  
!   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);
  
--- 16491,16496 ----
    ffesymbol_signal_unreported (s);
  
!   if ((ffesymbol_basictype (sp) != FFEINFO_basictypeINTEGER)
         && (ffesymbol_basictype (sp) != FFEINFO_basictypeANY))
      ffesymbol_error (s, t);