From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp.smtpout.orange.fr (smtp07.smtpout.orange.fr [80.12.242.129]) by sourceware.org (Postfix) with ESMTPS id 965BC3858C3A for ; Sat, 29 Jan 2022 14:24:19 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 965BC3858C3A Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=orange.fr Authentication-Results: sourceware.org; spf=none smtp.mailfrom=orange.fr Received: from [192.168.1.17] ([86.253.179.215]) by smtp.orange.fr with ESMTPA id Doe6n4WU8zH5fDoeHn2nt6; Sat, 29 Jan 2022 15:24:18 +0100 X-ME-Helo: [192.168.1.17] X-ME-Auth: MDU4MTIxYWM4YWI0ZGE4ZTUwZWZmNTExZmI2ZWZlMThkM2ZhYiE5OWRkOGM= X-ME-Date: Sat, 29 Jan 2022 15:24:18 +0100 X-ME-IP: 86.253.179.215 Content-Type: multipart/mixed; boundary="------------SfXSJCHiWf3AdlYbkTHG5u2U" Message-ID: <204cec48-ce99-500a-7951-939ee51d31d6@orange.fr> Date: Sat, 29 Jan 2022 15:24:06 +0100 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.5.0 From: Mikael Morin To: gfortran , gcc-patches Content-Language: en-US Subject: [PATCH] fortran: Unshare associate var charlen [PR104228] X-Spam-Status: No, score=-9.5 required=5.0 tests=BAYES_00, FREEMAIL_FROM, GIT_PATCH_0, KAM_DMARC_STATUS, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_NONE, SPF_NONE, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 29 Jan 2022 14:24:21 -0000 This is a multi-part message in MIME format. --------------SfXSJCHiWf3AdlYbkTHG5u2U Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Hello, the attached patch is a fix for PR104228. Even if simple, I wouldn’t call it obvious, as it’s involving character length and associate, so I don’t mind some extra review eyes. Tested on x86_64-pc-linux-gnu. Ok for master/11/10/9? --------------SfXSJCHiWf3AdlYbkTHG5u2U Content-Type: text/x-patch; charset=UTF-8; name="0001-fortran-Unshare-associate-var-charlen-PR104228.patch" Content-Disposition: attachment; filename*0="0001-fortran-Unshare-associate-var-charlen-PR104228.patch" Content-Transfer-Encoding: base64 RnJvbSAwODE5MjI2NTYwMzg3YjI5NTM2MjJlZTNkNWQwNTFhMzU2MDZkNTA0IE1vbiBTZXAg MTcgMDA6MDA6MDAgMjAwMQpGcm9tOiBNaWthZWwgTW9yaW4gPG1pa2FlbEBnY2MuZ251Lm9y Zz4KRGF0ZTogRnJpLCAyOCBKYW4gMjAyMiAyMjowMDo1NyArMDEwMApTdWJqZWN0OiBbUEFU Q0hdIGZvcnRyYW46IFVuc2hhcmUgYXNzb2NpYXRlIHZhciBjaGFybGVuIFtQUjEwNDIyOF0K ClBSMTA0MjI4IHNob3dlZCB0aGF0IGNoYXJhY3RlciBsZW5ndGhzIHdlcmUgc2hhcmVkIGJl dHdlZW4gYXNzb2NpYXRlCnZhcmlhYmxlIGFuZCBhc3NvY2lhdGUgdGFyZ2V0cy4gIFRoaXMg aXMgcHJvYmxlbWF0aWMgd2hlbiB0aGUgYXNzb2NpYXRlCnRhcmdldCBpcyBpdHNlbGYgYSB2 YXJpYWJsZSBhbmQgZ2V0cyBhIHZhcmlhYmxlIHRvIGhvbGQgdGhlIGxlbmd0aCwgYXMKdGhl IGxlbmd0aCB2YXJpYWJsZSBpcyBhZGRlZCAoYW5kIGFsbCB0aGUgdmFyaWFibGVzIGZvbGxv d2luZyBpdCBpbiB0aGUgY2hhaW4pCnRvIGJvdGggdGhlIGFzc29jaWF0ZSB2YXJpYWJsZSBz Y29wZSBhbmQgdGhlIHRhcmdldCB2YXJpYWJsZSBzY29wZS4KVGhpcyBjYXVzZWQgYW4gSUNF IHdoZW4gY29tcGlsaW5nIHdpdGggLU8wIC1mc2FuaXRpemU9YWRkcmVzcy4KClRoaXMgY2hh bmdlIGZvcmNlcyB0aGUgY3JlYXRpb24gb2YgYSBzZXBhcmF0ZSBjaGFyYWN0ZXIgbGVuZ3Ro IGZvciB0aGUKYXNzb2NpYXRlIHZhcmlhYmxlLiAgSXQgYWxzbyBmb3JjZXMgdGhlIGluaXRp YWxpemF0aW9uIG9mIHRoZSBjaGFyYWN0ZXIKbGVuZ3RoIHZhcmlhYmxlIHRvIGF2b2lkIHJl Z3Jlc3NpbmcgYXNzb2NpYXRlXzMyIGFuZCBhc3NvY2lhdGVfNDcgdGVzdHMuCgpnY2MvZm9y dHJhbi9DaGFuZ2VMb2c6CgoJKiByZXNvbHZlLmNjIChyZXNvbHZlX2Fzc29jX3Zhcik6IEFs c28gY3JlYXRlIGEgbmV3IGNoYXJhY3RlcgoJbGVuZ3RoIGZvciBub24tZHVtbXkgYXNzb2Np YXRlIHRhcmdldHMuCgkqIHRyYW5zLXN0bXQuY2MgKHRyYW5zX2Fzc29jaWF0ZV92YXIpOiBJ bml0aWFsaXplIGNoYXJhY3RlciBsZW5ndGgKCWV2ZW4gaWYgbm8gdGVtcG9yYXJ5IGlzIHVz ZWQgZm9yIHRoZSBhc3NvY2lhdGUgdmFyaWFibGUuCgpnY2MvdGVzdHN1aXRlL0NoYW5nZUxv ZzoKCgkqIGdmb3J0cmFuLmRnL2FzYW4vYXNzb2NpYXRlXzEuZjkwOiBOZXcgdGVzdC4KCSog Z2ZvcnRyYW4uZGcvYXNhbi9hc3NvY2lhdGVfMi5mOTA6IE5ldyB0ZXN0LgotLS0KIGdjYy9m b3J0cmFuL3Jlc29sdmUuY2MgICAgICAgICAgICAgICAgICAgICAgICB8ICAxIC0KIGdjYy9m b3J0cmFuL3RyYW5zLXN0bXQuY2MgICAgICAgICAgICAgICAgICAgICB8ICAyICstCiAuLi4v Z2ZvcnRyYW4uZGcvYXNhbi9hc3NvY2lhdGVfMS5mOTAgICAgICAgICAgfCAxOSArKysrKysr KysrKysrKysrKysrCiAuLi4vZ2ZvcnRyYW4uZGcvYXNhbi9hc3NvY2lhdGVfMi5mOTAgICAg ICAgICAgfCAxOSArKysrKysrKysrKysrKysrKysrCiA0IGZpbGVzIGNoYW5nZWQsIDM5IGlu c2VydGlvbnMoKyksIDIgZGVsZXRpb25zKC0pCiBjcmVhdGUgbW9kZSAxMDA2NDQgZ2NjL3Rl c3RzdWl0ZS9nZm9ydHJhbi5kZy9hc2FuL2Fzc29jaWF0ZV8xLmY5MAogY3JlYXRlIG1vZGUg MTAwNjQ0IGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvYXNhbi9hc3NvY2lhdGVfMi5mOTAK CmRpZmYgLS1naXQgYS9nY2MvZm9ydHJhbi9yZXNvbHZlLmNjIGIvZ2NjL2ZvcnRyYW4vcmVz b2x2ZS5jYwppbmRleCA4MzVhNDc4MzcxOC4uMjY2ZTQxZTI1YjEgMTAwNjQ0Ci0tLSBhL2dj Yy9mb3J0cmFuL3Jlc29sdmUuY2MKKysrIGIvZ2NjL2ZvcnRyYW4vcmVzb2x2ZS5jYwpAQCAt OTIyNyw3ICs5MjI3LDYgQEAgcmVzb2x2ZV9hc3NvY192YXIgKGdmY19zeW1ib2wqIHN5bSwg Ym9vbCByZXNvbHZlX3RhcmdldCkKIAlzeW0tPnRzLnUuY2wgPSB0YXJnZXQtPnRzLnUuY2w7 CiAKICAgICAgIGlmIChzeW0tPnRzLmRlZmVycmVkICYmIHRhcmdldC0+ZXhwcl90eXBlID09 IEVYUFJfVkFSSUFCTEUKLQkgICYmIHRhcmdldC0+c3ltdHJlZS0+bi5zeW0tPmF0dHIuZHVt bXkKIAkgICYmIHN5bS0+dHMudS5jbCA9PSB0YXJnZXQtPnRzLnUuY2wpCiAJewogCSAgc3lt LT50cy51LmNsID0gZ2ZjX25ld19jaGFybGVuIChzeW0tPm5zLCBOVUxMKTsKZGlmZiAtLWdp dCBhL2djYy9mb3J0cmFuL3RyYW5zLXN0bXQuY2MgYi9nY2MvZm9ydHJhbi90cmFucy1zdG10 LmNjCmluZGV4IDA0ZjgxNDdkMjNiLi4zMGI2YmQ1ZGQyYSAxMDA2NDQKLS0tIGEvZ2NjL2Zv cnRyYW4vdHJhbnMtc3RtdC5jYworKysgYi9nY2MvZm9ydHJhbi90cmFucy1zdG10LmNjCkBA IC0xOTE4LDcgKzE5MTgsNyBAQCB0cmFuc19hc3NvY2lhdGVfdmFyIChnZmNfc3ltYm9sICpz eW0sIGdmY193cmFwcGVkX2Jsb2NrICpibG9jaykKICAgICAgIGdmY19jb252X2V4cHJfZGVz Y3JpcHRvciAoJnNlLCBlKTsKIAogICAgICAgaWYgKHN5bS0+dHMudHlwZSA9PSBCVF9DSEFS QUNURVIKLQkgICYmICFzZS5kaXJlY3RfYnlyZWYgJiYgc3ltLT50cy5kZWZlcnJlZAorCSAg JiYgc3ltLT50cy5kZWZlcnJlZAogCSAgJiYgIXN5bS0+YXR0ci5zZWxlY3RfdHlwZV90ZW1w b3JhcnkKIAkgICYmIFZBUl9QIChzeW0tPnRzLnUuY2wtPmJhY2tlbmRfZGVjbCkKIAkgICYm IHNlLnN0cmluZ19sZW5ndGggIT0gc3ltLT50cy51LmNsLT5iYWNrZW5kX2RlY2wpCmRpZmYg LS1naXQgYS9nY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2FzYW4vYXNzb2NpYXRlXzEuZjkw IGIvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9hc2FuL2Fzc29jaWF0ZV8xLmY5MApuZXcg ZmlsZSBtb2RlIDEwMDY0NAppbmRleCAwMDAwMDAwMDAwMC4uYjVlYTc1NDk4YjcKLS0tIC9k ZXYvbnVsbAorKysgYi9nY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2FzYW4vYXNzb2NpYXRl XzEuZjkwCkBAIC0wLDAgKzEsMTkgQEAKKyEgeyBkZy1kbyBjb21waWxlIH0KKyEgeyBkZy1h ZGRpdGlvbmFsLW9wdGlvbnMgIi1PMCIgfQorIQorISBQUiBmb3J0cmFuLzEwNDIyOAorISBU aGUgY29kZSBnZW5lcmF0ZWQgY29kZSBmb3IgdGhlIHByb2dyYW0gYmVsb3cgd3JvbmdseSBw dXNoZWQgdGhlIFkgY2hhcmFjdGVyCishIGxlbmd0aCB2YXJpYWJsZSB0byBib3RoIFAgYW5k IFMgc2NvcGUsIHdoaWNoIHdhcyBsZWFkaW5nIHRvIGFuIElDRSB3aGVuCishIGFkZHJlc3Mg c2FuaXRpemVyIHdhcyBpbiBlZmZlY3QKKworcHJvZ3JhbSBwCisgICBjaGFyYWN0ZXIoOiks IHNhdmUsIGFsbG9jYXRhYmxlIDo6IHgoOikKKyAgIGNhbGwgcworY29udGFpbnMKKyAgIHN1 YnJvdXRpbmUgcworICAgICAgYXNzb2NpYXRlICh5ID0+IHgpCisgICAgICAgICB5ID0gW3hd CisgICAgICBlbmQgYXNzb2NpYXRlCisgICBlbmQKK2VuZAorCmRpZmYgLS1naXQgYS9nY2Mv dGVzdHN1aXRlL2dmb3J0cmFuLmRnL2FzYW4vYXNzb2NpYXRlXzIuZjkwIGIvZ2NjL3Rlc3Rz dWl0ZS9nZm9ydHJhbi5kZy9hc2FuL2Fzc29jaWF0ZV8yLmY5MApuZXcgZmlsZSBtb2RlIDEw MDY0NAppbmRleCAwMDAwMDAwMDAwMC4uOWJmYjJiZmJhZmIKLS0tIC9kZXYvbnVsbAorKysg Yi9nY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2FzYW4vYXNzb2NpYXRlXzIuZjkwCkBAIC0w LDAgKzEsMTkgQEAKKyEgeyBkZy1kbyBjb21waWxlIH0KKyEgeyBkZy1hZGRpdGlvbmFsLW9w dGlvbnMgIi1PMCIgfQorIQorISBQUiBmb3J0cmFuLzEwNDIyOAorISBUaGUgY29kZSBnZW5l cmF0ZWQgY29kZSBmb3IgdGhlIHByb2dyYW0gYmVsb3cgd3JvbmdseSBwdXNoZWQgdGhlIFkg Y2hhcmFjdGVyCishIGxlbmd0aCB2YXJpYWJsZSB0byBib3RoIFAgYW5kIFMgc2NvcGUsIHdo aWNoIHdhcyBsZWFkaW5nIHRvIGFuIElDRSB3aGVuCishIGFkZHJlc3Mgc2FuaXRpemVyIHdh cyBpbiBlZmZlY3QKKworcHJvZ3JhbSBwCisgICBjaGFyYWN0ZXIoOiksIGFsbG9jYXRhYmxl IDo6IHgoOikKKyAgIGNhbGwgcworY29udGFpbnMKKyAgIHN1YnJvdXRpbmUgcworICAgICAg YXNzb2NpYXRlICh5ID0+IHgpCisgICAgICAgICB5ID0gW3hdCisgICAgICBlbmQgYXNzb2Np YXRlCisgICBlbmQKK2VuZAorCi0tIAoyLjM0LjEKCg== --------------SfXSJCHiWf3AdlYbkTHG5u2U--