OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/44353 (rejects legal fortran)

Browse Source 
2010-07-18  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/44353
	* match.c (gfc_match_iterator): Remove error that iterator
	cannot be INTENT(IN).

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

	PR fortran/44353
	* gfortran.dg/data_implied_do_2.f03 : New test.

From-SVN: r162286
This commit is contained in:
Paul Thomas 2010-07-18 16:15:43 +00:00
parent 18fcbc9a69
commit 91e2faaf66
4 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-07-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353
* match.c (gfc_match_iterator): Remove error that iterator
cannot be INTENT(IN).
2010-07-17 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_free_ss): Don't free beyond ss rank.

7
gcc/fortran/match.c
View File

@ -978,13 +978,6 @@ 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-18 Paul Thomas <pault@gcc.gnu.org>
PR fortran/44353
* gfortran.dg/data_implied_do_2.f03 : New test.
2010-07-18 Richard Sandiford <rdsandiford@googlemail.com>
* gcc.target/mips/cache-1.c: Allow 0 instead of 0x0.

10
gcc/testsuite/gfortran.dg/data_implied_do_2.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
! Tests the fix for PR44353
!
! Contributed by Vittorio Zecca <zeccav@gmail.com>
!
subroutine sub(i)
intent(in) i
integer ii(10)
data (ii(i),i=1,10) /10*0/ ! failed here
end