From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25831 invoked by alias); 13 Oct 2008 16:00:00 -0000 Received: (qmail 25812 invoked by uid 22791); 13 Oct 2008 15:59:59 -0000 X-Spam-Check-By: sourceware.org Received: from salsabis.ec-nantes.fr (HELO salsabis.ec-nantes.fr) (130.66.33.4) by sourceware.org (qpsmtpd/0.31) with ESMTP; Mon, 13 Oct 2008 15:59:17 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by salsabis.ec-nantes.fr (Postfix) with ESMTP id DF2F6390002; Mon, 13 Oct 2008 17:59:11 +0200 (CEST) Received: from salsabis.ec-nantes.fr ([127.0.0.1]) by localhost (salsabis [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 18994-10; Mon, 13 Oct 2008 17:59:09 +0200 (CEST) Received: from proxy01.ec-nantes.fr (proxy01.ec-nantes.fr [130.66.41.1]) by salsabis.ec-nantes.fr (Postfix) with ESMTP id E575539000F; Mon, 13 Oct 2008 17:59:08 +0200 (CEST) Received: from [77.193.123.56] (56.123.193-77.rev.gaoland.net [77.193.123.56]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by proxy01.ec-nantes.fr (Postfix) with ESMTP id 891053BA99; Mon, 13 Oct 2008 17:59:08 +0200 (CEST) Message-ID: <48F3704B.3080207@tele2.fr> Date: Mon, 13 Oct 2008 18:32:00 -0000 From: Mikael Morin User-Agent: Thunderbird 2.0.0.17 (X11/20081002) MIME-Version: 1.0 To: correctifs gcc , gfortran Subject: [Patch, Fortran] PR fortran/35840: asynchronous specifier for a data transfert statement shall be an initialization expression Content-Type: multipart/mixed; boundary="------------040103070407000909090703" 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: 2008-10/txt/msg00564.txt.bz2 This is a multi-part message in MIME format. --------------040103070407000909090703 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit Content-length: 633 Hi, this patch fixes PR35840. It takes checking code from gfc_match_init_expr to a separated function and uses it to check exotic (non-constant, but reducible) asynchronous specifier ("y"//"e"//trim("s ") which reduces to "yes" was the one reported). This was first posted on the bugzilla, and pre-approved there. It is regression tested. Is this Ok ?* Mikael. PS : My copyright assignment should reach the FSF by the end of this week or more probably next week. (*) This is my first patch proposal so I'm awaiting comments about everything (patch, Changelog, message, syntactic conventions, testcase, ...). Be very strict. --------------040103070407000909090703 Content-Type: text/plain; name="Changes" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="Changes" Content-length: 728 MjAwOC0xMC0xMyAgTWlrYWVsIE1vcmluICA8bWlrYWVsLm1vcmluQHRlbGUy LmZyPgoKCVBSIGZvcnRyYW4vMzU4NDAKCSogZXhwci5jIChnZmNfcmVkdWNl X2luaXRfZXhwcik6IE5ldyBmdW5jdGlvbiwgY29udGFpbmluZyBjaGVja2lu ZyBjb2RlCglmcm9tIGdmY19tYXRjaF9pbml0X2V4cHIsIHNvIHRoYXQgY2hl Y2tpbmcgY2FuIGJlIGRlZmVycmVkLiAKCShnZmNfbWF0Y2hfaW5pdF9leHBy KTogVXNlIGdmY19yZWR1Y2VfaW5pdF9leHByLgoJKiBpby5jIChjaGVja19p b19jb25zdHJhaW50cyk6IFVzZSBnZmNfcmVkdWNlX2luaXRfZXhwciBpbnN0 ZWFkIG9mIAoJY2hlY2tpbmcgdGhhdCB0aGUgZXhwcmVzc2lvbiBpcyBhIGNv bnN0YW50LiAKCSogbWF0Y2guaCAoZ2ZjX3JlZHVjZV9pbml0X2V4cHIpOiBQ cm90b3R5cGUgYWRkZWQuIAoKMjAwOC0xMC0xMyAgTWlrYWVsIE1vcmluICA8 bWlrYWVsLm1vcmluQHRlbGUyLmZyPgoKCVBSIGZvcnRyYW4vMzU4NDAKCSog Z2ZvcnRyYW4uZGcvd3JpdGVfY2hlY2s0LmY5MDogTmV3IHRlc3QuCg== --------------040103070407000909090703 Content-Type: text/plain; name="35840.diff" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="35840.diff" Content-length: 5352 SW5kZXg6IGdjYy9mb3J0cmFuL2V4cHIuYwo9PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09Ci0tLSBnY2MvZm9ydHJhbi9leHByLmMJKHLDqXZpc2lvbiAxNDEwNzQp CisrKyBnY2MvZm9ydHJhbi9leHByLmMJKGNvcGllIGRlIHRyYXZhaWwpCkBA IC0yMzc4LDIxICsyMzc4LDE1IEBACiAgIHJldHVybiB0OwogfQogCisvKiBS ZWR1Y2VzIGEgZ2VuZXJhbCBleHByZXNzaW9uIHRvIGFuIGluaXRpYWxpemF0 aW9uIGV4cHJlc3Npb24gKGEgY29uc3RhbnQpLgorICAgVGhpcyB1c2VkIHRv IGJlIHBhcnQgb2YgZ2ZjX21hdGNoX2luaXRfZXhwci4KKyAgIE5vdGUgdGhh dCB0aGlzIGZ1bmN0aW9uIGRvZXNuJ3QgZnJlZSB0aGUgZ2l2ZW4gZXhwcmVz c2lvbiBvbiBGQUlMVVJFLiAgKi8KIAotLyogTWF0Y2ggYW4gaW5pdGlhbGl6 YXRpb24gZXhwcmVzc2lvbi4gIFdlIHdvcmsgYnkgZmlyc3QgbWF0Y2hpbmcg YW4KLSAgIGV4cHJlc3Npb24sIHRoZW4gcmVkdWNpbmcgaXQgdG8gYSBjb25z dGFudC4gICovCi0KLW1hdGNoCi1nZmNfbWF0Y2hfaW5pdF9leHByIChnZmNf ZXhwciAqKnJlc3VsdCkKK2dmY190cnkKK2dmY19yZWR1Y2VfaW5pdF9leHBy IChnZmNfZXhwciAqZXhwcikKIHsKLSAgZ2ZjX2V4cHIgKmV4cHI7Ci0gIG1h dGNoIG07CiAgIGdmY190cnkgdDsKIAotICBtID0gZ2ZjX21hdGNoX2V4cHIg KCZleHByKTsKLSAgaWYgKG0gIT0gTUFUQ0hfWUVTKQotICAgIHJldHVybiBt OwotCiAgIGdmY19pbml0X2V4cHIgPSAxOwogICB0ID0gZ2ZjX3Jlc29sdmVf ZXhwciAoZXhwcik7CiAgIGlmICh0ID09IFNVQ0NFU1MpCkBAIC0yNDAwLDE4 ICsyMzk0LDEyIEBACiAgIGdmY19pbml0X2V4cHIgPSAwOwogCiAgIGlmICh0 ID09IEZBSUxVUkUpCi0gICAgewotICAgICAgZ2ZjX2ZyZWVfZXhwciAoZXhw cik7Ci0gICAgICByZXR1cm4gTUFUQ0hfRVJST1I7Ci0gICAgfQorICAgIHJl dHVybiBGQUlMVVJFOwogCiAgIGlmIChleHByLT5leHByX3R5cGUgPT0gRVhQ Ul9BUlJBWQogICAgICAgJiYgKGdmY19jaGVja19jb25zdHJ1Y3Rvcl90eXBl IChleHByKSA9PSBGQUlMVVJFCi0JICB8fCBnZmNfZXhwYW5kX2NvbnN0cnVj dG9yIChleHByKSA9PSBGQUlMVVJFKSkKLSAgICB7Ci0gICAgICBnZmNfZnJl ZV9leHByIChleHByKTsKLSAgICAgIHJldHVybiBNQVRDSF9FUlJPUjsKLSAg ICB9CisgICAgICB8fCBnZmNfZXhwYW5kX2NvbnN0cnVjdG9yIChleHByKSA9 PSBGQUlMVVJFKSkKKyAgICByZXR1cm4gRkFJTFVSRTsKIAogICAvKiBOb3Qg YWxsIGlucXVpcnkgZnVuY3Rpb25zIGFyZSBzaW1wbGlmaWVkIHRvIGNvbnN0 YW50IGV4cHJlc3Npb25zCiAgICAgIHNvIGl0IGlzIG5lY2Vzc2FyeSB0byBj YWxsIGNoZWNrX2lucXVpcnkgYWdhaW4uICAqLyAKQEAgLTI0MTksNiArMjQw NywzMyBAQAogICAgICAgJiYgIWdmY19pbl9tYXRjaF9kYXRhICgpKQogICAg IHsKICAgICAgIGdmY19lcnJvciAoIkluaXRpYWxpemF0aW9uIGV4cHJlc3Np b24gZGlkbid0IHJlZHVjZSAlQyIpOworICAgICAgcmV0dXJuIEZBSUxVUkU7 CisgICAgfQorCisgIHJldHVybiBTVUNDRVNTOworfQorCisKKy8qIE1hdGNo IGFuIGluaXRpYWxpemF0aW9uIGV4cHJlc3Npb24uICBXZSB3b3JrIGJ5IGZp cnN0IG1hdGNoaW5nIGFuCisgICBleHByZXNzaW9uLCB0aGVuIHJlZHVjaW5n IGl0IHRvIGEgY29uc3RhbnQuICAqLworCittYXRjaAorZ2ZjX21hdGNoX2lu aXRfZXhwciAoZ2ZjX2V4cHIgKipyZXN1bHQpCit7CisgIGdmY19leHByICpl eHByOworICBtYXRjaCBtOworICBnZmNfdHJ5IHQ7CisKKyAgZXhwciA9IE5V TEw7CisKKyAgbSA9IGdmY19tYXRjaF9leHByICgmZXhwcik7CisgIGlmICht ICE9IE1BVENIX1lFUykKKyAgICByZXR1cm4gbTsKKworICB0ID0gZ2ZjX3Jl ZHVjZV9pbml0X2V4cHIgKGV4cHIpOworICBpZiAodCAhPSBTVUNDRVNTKQor ICAgIHsKKyAgICAgIGdmY19mcmVlX2V4cHIgKGV4cHIpOwogICAgICAgcmV0 dXJuIE1BVENIX0VSUk9SOwogICAgIH0KIApJbmRleDogZ2NjL2ZvcnRyYW4v aW8uYwo9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvZm9ydHJhbi9p by5jCShyw6l2aXNpb24gMTQxMDc0KQorKysgZ2NjL2ZvcnRyYW4vaW8uYwko Y29waWUgZGUgdHJhdmFpbCkKQEAgLTI5NzMsNyArMjk3Myw3IEBACiAgICAg ewogICAgICAgc3RhdGljIGNvbnN0IGNoYXIgKiBhc3luY2hyb25vdXNbXSA9 IHsgIllFUyIsICJOTyIsIE5VTEwgfTsKIAotICAgICAgaWYgKGR0LT5hc3lu Y2hyb25vdXMtPmV4cHJfdHlwZSAhPSBFWFBSX0NPTlNUQU5UKQorICAgICAg aWYgKGdmY19yZWR1Y2VfaW5pdF9leHByIChkdC0+YXN5bmNocm9ub3VzKSAh PSBTVUNDRVNTKQogCXsKIAkgIGdmY19lcnJvciAoIkFTWU5DSFJPTk9VUz0g c3BlY2lmaWVyIGF0ICVMIG11c3QgYmUgYW4gaW5pdGlhbGl6YXRpb24gIgog CQkgICAgICJleHByZXNzaW9uIiwgJmR0LT5hc3luY2hyb25vdXMtPndoZXJl KTsKSW5kZXg6IGdjYy9mb3J0cmFuL21hdGNoLmgKPT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PQotLS0gZ2NjL2ZvcnRyYW4vbWF0Y2guaAkocsOpdmlzaW9uIDE0 MTA3NCkKKysrIGdjYy9mb3J0cmFuL21hdGNoLmgJKGNvcGllIGRlIHRyYXZh aWwpCkBAIC0xOTksNiArMTk5LDcgQEAKIC8qIGV4cHIuYyAtLSBGSVhNRTog dGhpcyBvbmUgc2hvdWxkIGJlIGVsaW1pbmF0ZWQgYnkgbW92aW5nIHRoZQog ICAgbWF0Y2hlciB0byBtYXRjaGV4cC5jIGFuZCBhIGNhbGwgdG8gYSBuZXcg ZnVuY3Rpb24gaW4gZXhwci5jIHRoYXQKICAgIG9ubHkgbWFrZXMgc3VyZSB0 aGUgaW5pdCBleHByLiBpcyB2YWxpZC4gICovCitnZmNfdHJ5IGdmY19yZWR1 Y2VfaW5pdF9leHByIChnZmNfZXhwciAqZXhwcik7CiBtYXRjaCBnZmNfbWF0 Y2hfaW5pdF9leHByIChnZmNfZXhwciAqKik7CiAKIC8qIGFycmF5LmMuICAq LwpJbmRleDogZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy93cml0ZV9jaGVj azQuZjkwCj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KLS0tIGdjYy90ZXN0c3Vp dGUvZ2ZvcnRyYW4uZGcvd3JpdGVfY2hlY2s0LmY5MAkocsOpdmlzaW9uIDAp CisrKyBnY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL3dyaXRlX2NoZWNrNC5m OTAJKHLDqXZpc2lvbiAwKQpAQCAtMCwwICsxLDE3IEBACishIHsgZGctZG8g Y29tcGlsZSB9CishCishIFBSIGZvcnRyYW4vMzU4NDAgCishCishIFRoZSBh c3luY2hyb25vdXMgc3BlY2lmaWVyIGZvciBhIGRhdGEgdHJhbnNmZXIgc3Rh dGVtZW50IHNoYWxsIGJlIAorISBhbiBpbml0aWFsaXphdGlvbiBleHByZXNz aW9uCishCishIENvbnRyaWJ1dGVkIGJ5IFRvYmlhcyBCdXJudXMgPGJ1cm51 c0BnY2MuZ251Lm9yZz4KKyEKKyAgY2hhcmFjdGVyKDIpIDo6IG5vCisgIG5v ID0gIm5vIgorICBvcGVuICh1bml0PTEwLCBhc3luY2hyb25vdXMgPSBubykg ICAgICAgICAgICAgICEgT2ssIGl0IGlzbid0IGEgdHJhbnNmZXIgc3RtdAor ICB3cml0ZSgqLCosIGFzeW5jaHJvbm91cz0iWSIvLyJFIi8vdHJpbSgiUyAg IikpICEgT2ssIGl0IGlzIGFuIGluaXQgZXhwcgorICB3cml0ZSgqLCosIGFz eW5jaHJvbm91cz1ubykgICEgeyBkZy1lcnJvciAibXVzdCBiZSBhbiBpbml0 aWFsaXphdGlvbiBleHByZXNzaW9uIiB9IAorICByZWFkICgqLCosIGFzeW5j aHJvbm91cz0iWSIvLyJlIi8vdHJpbSgiUyAgIikpCisgIHJlYWQgKCosKiwg YXN5bmNocm9ub3VzPW5vKSAgISB7IGRnLWVycm9yICJtdXN0IGJlIGFuIGlu aXRpYWxpemF0aW9uIGV4cHJlc3Npb24iIH0KK2VuZAo= --------------040103070407000909090703--