From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pj1-x102d.google.com (mail-pj1-x102d.google.com [IPv6:2607:f8b0:4864:20::102d]) by sourceware.org (Postfix) with ESMTPS id 3B7593858D28; Wed, 12 Apr 2023 15:25:19 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 3B7593858D28 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-pj1-x102d.google.com with SMTP id y11-20020a17090a600b00b0024693e96b58so10860626pji.1; Wed, 12 Apr 2023 08:25:19 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1681313117; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=7OWFHra944i2jqzOnulInLxM86TEvxGYi3XoW4dAXTQ=; b=XINx0+/b6PERiQwDjnxVEXYeM200Q/JsxjsZiYbOahQj7wzqPJyRGtzWcNHxU5yCWT P8nV4bBd9vui/iDPYB7LYMHc7V8CD9AqLF4lfupiq6g6Vj0dXg48/I0blc4WfMOkOfS6 a51voIHjrtXqpl6UBp0q3VTTKG+2JOtAKWZot3l9qSCXqjdO1pbb+q9pluPxULidV6Gr DZtcpDi84dV6ac9rPZvqN9MYGa/blURmrk/dYiquiiVkqoAV7j1dIdvfnaFWaz+YjdtB buhXJ33oo23pdAgABa1aaov0+F1Mq3iWmoqIj87mMSDun5kMvJTqJ3ozeUlSzyFPRCkW IlRg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1681313117; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=7OWFHra944i2jqzOnulInLxM86TEvxGYi3XoW4dAXTQ=; b=V7d1umaSvnjx3NVDicFPeNOIuyHIYS9oukipqK7nE0lFISmckk3o5JZ6M2A9W0z9c9 d+nTtOpKO6OdKt++NjhHkmXCS20AQE6XlrVGmTxSpAXFpJnuThZHy58ZbuBY0TLE5Val HnKEd5HBr7jzOsPnnH6g4NYT7DZmfDx4Q9KjVssuKDJ0M4kPA13hHS++u2cZ/dR2d7Fi mtvrQczIF+SnmB5Nmsq/LXQ55q7DIPzcSKgFWA1GcMfCl+8kBMfab2HuqbwqFA01Ko2R 8hTea4WOhRBAu9G8LLHMXlnmX4RVAO9ydi3PjVUJ/fa9zSs4apTd9jiIptwu91K0K/MS NL0A== X-Gm-Message-State: AAQBX9e6QDHUg89Oyuk5mbQosxcqjQkMHNq553ZFkVlL1J4+Sm591DR5 WDxA0LBE7g46m12D58hp0ktoF0grVlFwm82HhX46oZrVOV8= X-Google-Smtp-Source: AKy350a4S191hSdiYJemUwJctHjJ54StTtW5grFleAkAGY51Nhly1g/+Ac9snBJOXzqOoufb4EFioa1VtCGEnuc9BUA= X-Received: by 2002:a17:903:2282:b0:1a2:1fd0:226c with SMTP id b2-20020a170903228200b001a21fd0226cmr5159958plh.8.1681313117361; Wed, 12 Apr 2023 08:25:17 -0700 (PDT) MIME-Version: 1.0 From: Paul Richard Thomas Date: Wed, 12 Apr 2023 16:25:06 +0100 Message-ID: Subject: [Patch, fortran] PR109451 - ICE in gfc_conv_expr_descriptor with ASSOCIATE and substrings To: "fortran@gcc.gnu.org" , gcc-patches Content-Type: multipart/mixed; boundary="0000000000001e5eb305f92537f4" X-Spam-Status: No, score=-7.3 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,GIT_PATCH_0,HTML_MESSAGE,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --0000000000001e5eb305f92537f4 Content-Type: multipart/alternative; boundary="0000000000001e5eb105f92537f2" --0000000000001e5eb105f92537f2 Content-Type: text/plain; charset="UTF-8" Hi All, I think that the changelog says it all. OK for mainline? Paul Fortran: Fix some deferred character problems in associate [PR109451] 2023-04-07 Paul Thomas gcc/fortran PR fortran/109451 * trans-array.cc (gfc_conv_expr_descriptor): Guard expression character length backend decl before using it. Suppress the assignment if lhs equals rhs. * trans-io.cc (gfc_trans_transfer): Scalarize transfer of associate variables pointing to a variable. Add comment. gcc/testsuite/ PR fortran/109451 * gfortran.dg/associate_61.f90 : New test --0000000000001e5eb105f92537f2-- --0000000000001e5eb305f92537f4 Content-Type: text/x-patch; charset="US-ASCII"; name="pr109451.diff" Content-Disposition: attachment; filename="pr109451.diff" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_lgducwrk0 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL3RyYW5zLWFycmF5LmNjIGIvZ2Nj L2ZvcnRyYW4vdHJhbnMtYXJyYXkuY2MKaW5kZXggZTE3MjU4MDgwMzMuLjNk OTBhMDJjZGFjIDEwMDY0NAotLS0gYS9nY2MvZm9ydHJhbi90cmFucy1hcnJh eS5jYworKysgYi9nY2MvZm9ydHJhbi90cmFucy1hcnJheS5jYwpAQCAtNzkz NCw4ICs3OTM0LDEyIEBAIGdmY19jb252X2V4cHJfZGVzY3JpcHRvciAoZ2Zj X3NlICpzZSwgZ2ZjX2V4cHIgKmV4cHIpCiAJICBlbHNlCiAJICAgIHRtcCA9 IHNlLT5zdHJpbmdfbGVuZ3RoOwogCi0JICBpZiAoZXhwci0+dHMuZGVmZXJy ZWQgJiYgVkFSX1AgKGV4cHItPnRzLnUuY2wtPmJhY2tlbmRfZGVjbCkpCi0J ICAgIGdmY19hZGRfbW9kaWZ5ICgmc2UtPnByZSwgZXhwci0+dHMudS5jbC0+ YmFja2VuZF9kZWNsLCB0bXApOworCSAgaWYgKGV4cHItPnRzLmRlZmVycmVk ICYmIGV4cHItPnRzLnUuY2wtPmJhY2tlbmRfZGVjbAorCSAgICAgICYmIFZB Ul9QIChleHByLT50cy51LmNsLT5iYWNrZW5kX2RlY2wpKQorCSAgICB7CisJ ICAgICAgaWYgKGV4cHItPnRzLnUuY2wtPmJhY2tlbmRfZGVjbCAhPSB0bXAp CisJICAgICAgICBnZmNfYWRkX21vZGlmeSAoJnNlLT5wcmUsIGV4cHItPnRz LnUuY2wtPmJhY2tlbmRfZGVjbCwgdG1wKTsKKwkgICAgfQogCSAgZWxzZQog CSAgICBleHByLT50cy51LmNsLT5iYWNrZW5kX2RlY2wgPSB0bXA7CiAJfQpk aWZmIC0tZ2l0IGEvZ2NjL2ZvcnRyYW4vdHJhbnMtaW8uY2MgYi9nY2MvZm9y dHJhbi90cmFucy1pby5jYwppbmRleCA5YjU0ZDJmMGQzMS4uNjc2NTg3Njli OWUgMTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL3RyYW5zLWlvLmNjCisrKyBi L2djYy9mb3J0cmFuL3RyYW5zLWlvLmNjCkBAIC0yNjIwLDkgKzI2MjAsMTMg QEAgZ2ZjX3RyYW5zX3RyYW5zZmVyIChnZmNfY29kZSAqIGNvZGUpCiAJICBn Y2NfYXNzZXJ0IChyZWYgJiYgcmVmLT50eXBlID09IFJFRl9BUlJBWSk7CiAJ fQogCisgICAgICAvKiBUaGVzZSBleHByZXNzaW9ucyBkb24ndCBhbHdheXMg aGF2ZSB0aGUgZHR5cGUgZWxlbWVudCBsZW5ndGggc2V0CisJIGNvcnJlY3Rs eSwgcmVuZGVyaW5nIHRoZW0gdXNlbGVzcyBmb3IgYXJyYXkgdHJhbnNmZXIu ICAqLwogICAgICAgaWYgKGV4cHItPnRzLnR5cGUgIT0gQlRfQ0xBU1MKIAkg JiYgZXhwci0+ZXhwcl90eXBlID09IEVYUFJfVkFSSUFCTEUKIAkgJiYgKChl eHByLT5zeW10cmVlLT5uLnN5bS0+dHMudHlwZSA9PSBCVF9ERVJJVkVEICYm IGV4cHItPnRzLmRlZmVycmVkKQorCSAgICAgfHwgKGV4cHItPnN5bXRyZWUt Pm4uc3ltLT5hc3NvYworCQkgJiYgZXhwci0+c3ltdHJlZS0+bi5zeW0tPmFz c29jLT52YXJpYWJsZSkKIAkgICAgIHx8IGdmY19leHByX2F0dHIgKGV4cHIp LnBvaW50ZXIpKQogCWdvdG8gc2NhbGFyaXplOwogCg== --0000000000001e5eb305f92537f4 Content-Type: text/x-fortran; charset="US-ASCII"; name="associate_61.f90" Content-Disposition: attachment; filename="associate_61.f90" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_lgduep191 ISB7IGRnLWRvIHJ1biB9CiEgVGVzdCBmaXhlcyBmb3IgUFIxMDk0NTEKISBD b250cmlidXRlZCBieSBIYXJhbGQgQW5sYXVmICA8YW5sYXVmQGdjYy5nbnUu b3JnPgohCiAgY2FsbCBkY3MzKFsnYWJjZCcsJ2VmZ2gnXSkKY29udGFpbnMK ICBzdWJyb3V0aW5lIGRjczMoYSkKICAgIGNoYXJhY3RlcihsZW49KiksIGlu dGVudChpbikgIDo6IGEoOikKICAgIGNoYXJhY3Rlcig6KSwgICAgIGFsbG9j YXRhYmxlIDo6IGIoOikKICAgIGIgPSBhKDopCiAgICBjYWxsIHRlc3QgKGIs IGEsIDEpCiAgICBhc3NvY2lhdGUgKHEgPT4gYig6KSkgICAgISBubyBJQ0Ug YnV0IHByaW50IHJlcGVhdGVkIGZpcnN0IGVsZW1lbnQKICAgICAgY2FsbCB0 ZXN0IChxLCBhLCAyKQogICAgICBwcmludCAqLCBxCiAgICBlbmQgYXNzb2Np YXRlCiAgICBhc3NvY2lhdGUgKHEgPT4gYig6KSg6KSkgISBJQ0UKICAgICAg Y2FsbCB0ZXN0IChxLCBhLCAzKQogICAgICBhc3NvY2lhdGUgKHIgPT4gcSg6 KSgxOjMpKQogICAgICAgIGNhbGwgdGVzdCAociwgYSg6KSgxOjMpLCA0KQog ICAgICBlbmQgYXNzb2NpYXRlCiAgICBlbmQgYXNzb2NpYXRlCiAgICBhc3Nv Y2lhdGUgKHEgPT4gYig6KSgyOjMpKQogICAgICBjYWxsIHRlc3QgKHEsIGEo OikoMjozKSwgNSkKICAgIGVuZCBhc3NvY2lhdGUKICBlbmQgc3Vicm91dGlu ZSBkY3MzCiAgc3Vicm91dGluZSB0ZXN0ICh4LCB5LCBpKQogICAgY2hhcmFj dGVyKGxlbj0qKSwgaW50ZW50KGluKSA6OiB4KDopLCB5KDopCiAgICBpbnRl Z2VyLCBpbnRlbnQoaW4pIDo6IGkKICAgIGlmIChhbnkgKHggLm5lLiB5KSkg c3RvcCBpCiAgZW5kIHN1YnJvdXRpbmUgdGVzdAplbmQKISB7IGRnLW91dHB1 dCAiIGFiY2RlZmdoIiB9Cg== --0000000000001e5eb305f92537f4--