MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Toon Moene 2002-02-03 13:54:09 +01:00 committed by Toon Moene
parent f0c75752a1
commit cb8728fd13
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -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.

7
gcc/f/expr.c
View File

@ -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;