From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 8776 invoked by alias); 4 Jul 2007 20:29:48 -0000 Received: (qmail 8762 invoked by uid 22791); 4 Jul 2007 20:29:47 -0000 X-Spam-Check-By: sourceware.org Received: from nz-out-0506.google.com (HELO nz-out-0506.google.com) (64.233.162.239) by sourceware.org (qpsmtpd/0.31) with ESMTP; Wed, 04 Jul 2007 20:29:41 +0000 Received: by nz-out-0506.google.com with SMTP id v1so1399024nzb for ; Wed, 04 Jul 2007 13:29:39 -0700 (PDT) Received: by 10.114.13.1 with SMTP id 1mr7419747wam.1183580978713; Wed, 04 Jul 2007 13:29:38 -0700 (PDT) Received: by 10.114.74.7 with HTTP; Wed, 4 Jul 2007 13:29:38 -0700 (PDT) Message-ID: <339c37f20707041329y24b811a6wab1f9a3508d4ad1e@mail.gmail.com> Date: Wed, 04 Jul 2007 22:49:00 -0000 From: "Paul Richard Thomas" To: "fortran@gcc.gnu.org" , "gcc-patches List" Subject: [Patch, fortran] PR32613 - [4.3 regression] Different results depending on unnecessary variable declaration MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_Part_139008_21226994.1183580978685" Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2007-07/txt/msg00398.txt.bz2 ------=_Part_139008_21226994.1183580978685 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-Disposition: inline Content-length: 1031 :ADDPATCH fortran: This is another regression that I set off. I take it to be urgent, since it came up on comp.lang.fortran. The PR and the patch speak for themselves. The testcase is the reporter's. Regtested on Cygwin_NT/amd64. I will commit this at the same time as PR32526, as obvious, unless there are any objections overnight. Now to get on with the character patches that I promised I would:-) Paul PS I realise that I am telling a lie. The PR and the patch do not speak for temselves completely. I should have said that the do-loop index in the contained function 'internal' was the cause of the trouble, since it was getting labeled as an implicit do loop iterator variable. This led the reference to 'i' in the call of the statement function to generate a local declaration. 2007-07-04 Paul Thomas PR fortran/32613 * match.c (gfc_match_do): Reset the implied_index attribute. 2007-07-04 Paul Thomas PR fortran/32613 * gfortran.dg/do_iterator_2.f90: New test. ------=_Part_139008_21226994.1183580978685 Content-Type: application/octet-stream; name=pr32613.diff Content-Transfer-Encoding: base64 X-Attachment-Id: f_f3q9it45 Content-Disposition: attachment; filename="pr32613.diff" Content-length: 2103 SW5kZXg6IGdjYy9mb3J0cmFuL21hdGNoLmMKPT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PQoqKiogZ2NjL2ZvcnRyYW4vbWF0Y2guYwkocmV2aXNpb24gMTI2MzE4 KQotLS0gZ2NjL2ZvcnRyYW4vbWF0Y2guYwkod29ya2luZyBjb3B5KQoqKioq KioqKioqKioqKiogZ2ZjX21hdGNoX2RvICh2b2lkKQoqKiogMTUwMCwxNTA1 ICoqKioKLS0tIDE1MDAsMTUwNiAtLS0tCiAgICBpZiAobSA9PSBNQVRDSF9F UlJPUikKICAgICAgZ290byBjbGVhbnVwOwogIAorICAgaXRlci52YXItPnN5 bXRyZWUtPm4uc3ltLT5hdHRyLmltcGxpZWRfaW5kZXggPSAwOwogICAgZ2Zj X2NoZWNrX2RvX3ZhcmlhYmxlIChpdGVyLnZhci0+c3ltdHJlZSk7CiAgCiAg ICBpZiAoZ2ZjX21hdGNoX2VvcyAoKSAhPSBNQVRDSF9ZRVMpCkluZGV4OiBn Y2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2RvX2l0ZXJhdG9yXzIuZjkwCj09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT0KKioqIGdjYy90ZXN0c3VpdGUvZ2ZvcnRy YW4uZGcvZG9faXRlcmF0b3JfMi5mOTAJKHJldmlzaW9uIDApCi0tLSBnY2Mv dGVzdHN1aXRlL2dmb3J0cmFuLmRnL2RvX2l0ZXJhdG9yXzIuZjkwCShyZXZp c2lvbiAwKQoqKioqKioqKioqKioqKioKKioqIDAgKioqKgotLS0gMSwzMiAt LS0tCisgISB7IGRnLWRvIHJ1biB9CisgISBUZXN0cyB0aGUgZml4IGZvciBw cjMyNjEzIC0gc2VlOgorICEgaHR0cDovL2dyb3Vwcy5nb29nbGUuY29tL2dy b3VwL2NvbXAubGFuZy5mb3J0cmFuL2Jyb3dzZV90aHJlYWQvdGhyZWFkLzQ5 NWMxNTRlZTE4OGQ3ZjEvZWEyOTIxMzRmZTY4YjFkMCNlYTI5MjEzNGZlNjhi MWQwCisgIQorICEgQ29udHJpYnV0ZWQgYnkgQWwgR3JleW5vbGRzIDxhd2dy ZXlub2xkc0BlYXJ0aGxpbmsubmV0PgorICEKKyBwcm9ncmFtIG1haW4KKyAg IGNhbGwgc29tZXRoaW5nCisgZW5kCisgCisgc3Vicm91dGluZSBzb21ldGhp bmcKKyAhICBpbnRlZ2VyIGkgIWNvcnJlY3QgcmVzdWx0cyBmcm9tIGdmb3J0 cmFuIGRlcGVuZCBvbiB0aGlzIHN0YXRlbWVudCAoYmVmb3JlIGZpeCkKKyAg IGludGVnZXIgOjogbSA9IDAKKyAgIGNoYXJhY3RlciBsaXQqMSwgbGluZSox MDAKKyAgIGxpdChpKSA9IGxpbmUoaTppKQorICAgaSA9IDEKKyAgIG4gPSA1 CisgICBsaW5lID0gJ1BaMFIxJworICAgaWYgKGludGVybmFsICgwKSkgY2Fs bCBhYm9ydCAoKQorICAgaWYgKG0gLm5lLiA1KSBjYWxsIGFib3J0ICgpCisg Y29udGFpbnMKKyAgIGxvZ2ljYWwgZnVuY3Rpb24gaW50ZXJuYWwgKGopCisg ICAgIGludGVudChpbikgagorICAgICBkbyBpID0gaiwgbgorICAgICAgIGsg PSBpbmRleCAoJ1JFJywgbGl0IChpKSkKKyAgICAgICBtID0gbSArIDEKKyAg ICAgICBpZiAoayA9PSAwKSBjeWNsZQorICAgICAgIGlmIChpKzEgPT0gbikg ZXhpdAorICAgICBlbmRkbworICAgICBpbnRlcm5hbCA9IChrID09IDApCisg ICBlbmQgZnVuY3Rpb24KKyBlbmQK ------=_Part_139008_21226994.1183580978685--