procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/44353 (rejects legal fortran)

Browse source 
2010-07-19  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/44353
	* match.c (gfc_match_iterator): Revert.

2010-07-19  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/44353
	* gfortran.dg/data_implied_do_2.f03 : Remove.

From-SVN: r162294
This commit is contained in:
Paul Thomas 2010-07-19 05:05:23 +00:00
parent 3b05770fed
commit 44c9c01f8f
3 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2010-07-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353
* match.c (gfc_match_iterator): Reverted.
2010-07-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353

7
gcc/fortran/match.c
View file

@ -978,6 +978,13 @@ gfc_match_iterator (gfc_iterator *iter, int init_flag)
goto cleanup;
}
if (var->symtree->n.sym->attr.intent == INTENT_IN)
{
gfc_error ("Loop variable '%s' at %C cannot be INTENT(IN)",
var->symtree->n.sym->name);
goto cleanup;
}
gfc_match_char ('=');
var->symtree->n.sym->attr.implied_index = 1;

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2010-07-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353
* gfortran.dg/data_implied_do_2.f03 : Removed.
2010-07-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353