diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2010-07-19 05:05:23 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2010-07-19 05:05:23 +0000 |
| commit | 44c9c01f8f2e8315090dcdcc544632719d840163 (patch) | |
| tree | f2cdfc92ab0ea74ecbe04a7d6422f5955dedd189 /gcc | |
| parent | 3b05770fede66627882b9f2c60f5faa6ddf57214 (diff) | |
| download | gcc-44c9c01f8f2e8315090dcdcc544632719d840163.zip gcc-44c9c01f8f2e8315090dcdcc544632719d840163.tar.gz gcc-44c9c01f8f2e8315090dcdcc544632719d840163.tar.bz2 | |
re PR fortran/44353 (rejects legal fortran)
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 7 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 |
3 files changed, 17 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 48144b0..a903c8a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 3761261..56e9d1d 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -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; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7cf7beb..73fb7b7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 |