From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 18286 invoked by alias); 27 Jan 2018 12:41:20 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 18262 invoked by uid 89); 27 Jan 2018 12:41:20 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-5.6 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,GIT_PATCH_2,KAM_ASCII_DIVIDERS,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=obliged, sk:pault@g, sk:paultg, Hx-languages-length:2418 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mail-yb0-f170.google.com Received: from mail-yb0-f170.google.com (HELO mail-yb0-f170.google.com) (209.85.213.170) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 27 Jan 2018 12:41:19 +0000 Received: by mail-yb0-f170.google.com with SMTP id h9so1171558ybg.10; Sat, 27 Jan 2018 04:41:18 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=yP+s56vM7GrkTeE/xc9fTk+Z1c77YX/Ym0HtbE+/V6I=; b=XRcO2gzkWwA8oTAWg6j2nsIaloQ6ziZXhDPvZm1AbnEe0Vjbm1OsJ9jHiJkcc+UCiY 7543k0CfvF6OA1MEbKTkXQjJMrGHxrloZJSmg0y3VhTB6Ux3XbOVMyAfWMavs0r4OCaQ 49cIetnbZ3mr4GntfMfhe5xHl8LVc9q1Yy1R2HYojqde4Yq4AgIhM8vO3QtWX4aoplGU 5xorZxP77hwooquszRvrg6rYsF/EfDOrmA4/oinUd17LD8uLxMoYikw2Lu2gWN8v6rwy Kl2/t3VbeCurdsuR/HKse9jk9fLrsQZ0cnCkEpk8PFiU+kV5V17Vx80gPFBH+CuP3ysP +GbQ== X-Gm-Message-State: AKwxyteiAHvwWX4ioq0au7Eh0MfyEtMlCnxARC9sz7e3zyyL7weUi0ak Uezi85HhWQb/UsLYKsJ5dDuSimq7sNvcQ+jGJK/Kpg== X-Google-Smtp-Source: AH8x2246GxbbXUMewGw4v3KdfxbkGvJq2TvVUY4gA2zPJ6Azuqg4gk8SeNE5L1OSrBuMstm99jmFQmsdl8LkiFVzfWM= X-Received: by 10.37.11.12 with SMTP id 12mr13154640ybl.411.1517056877170; Sat, 27 Jan 2018 04:41:17 -0800 (PST) MIME-Version: 1.0 Received: by 10.129.117.198 with HTTP; Sat, 27 Jan 2018 04:41:16 -0800 (PST) From: Paul Richard Thomas Date: Sat, 27 Jan 2018 12:41:00 -0000 Message-ID: Subject: [Patch, fortran] PR 56691 - [OOP] Allocatable array: wrong offset when passing to CLASS dummy To: "fortran@gcc.gnu.org" , gcc-patches , =?UTF-8?Q?Dominique_d=27Humi=C3=A8res?= Content-Type: multipart/mixed; boundary="001a11c0434444b4410563c154c5" X-IsSubscribed: yes X-SW-Source: 2018-01/txt/msg00197.txt.bz2 --001a11c0434444b4410563c154c5 Content-Type: text/plain; charset="UTF-8" Content-length: 609 I am worried that this fix seems to easy by half and so I am posting it for approval, rather than committing it as obvious. I would be obliged if somebody would test it thoroughly. Bootstraps and regtests on FC23/x86_64 - OK for trunk and 7 branch? Paul 2018-27-01 Paul Thomas PR fortran/56691 * trans-array.c (gfc_conv_expr_descriptor): If the source array is a descriptor type, use its offset, removing the condition that is be a class expression. 2018-27-01 Paul Thomas PR fortran/56691 * gfortran.dg/type_to_class_4.f03: New test. --001a11c0434444b4410563c154c5 Content-Type: text/plain; charset="US-ASCII"; name="submit.diff" Content-Disposition: attachment; filename="submit.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_jcxchik10 Content-length: 2579 SW5kZXg6IGdjYy9mb3J0cmFuL3RyYW5zLWFycmF5LmMKPT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PQoqKiogZ2NjL2ZvcnRyYW4vdHJhbnMtYXJyYXkuYwkocmV2 aXNpb24gMjU3MDY1KQotLS0gZ2NjL2ZvcnRyYW4vdHJhbnMtYXJyYXkuYwko d29ya2luZyBjb3B5KQoqKioqKioqKioqKioqKiogZ2ZjX2NvbnZfZXhwcl9k ZXNjcmlwdG9yIChnZmNfc2UgKnNlLCBnZgoqKiogNzUyOSw3NTM3ICoqKioK ICAJICAgICAgOiBiYXNlOwogIAkgIGdmY19jb252X2Rlc2NyaXB0b3Jfb2Zm c2V0X3NldCAoJmxvb3AucHJlLCBwYXJtLCB0bXApOwogIAl9CiEgICAgICAg ZWxzZSBpZiAoSVNfQ0xBU1NfQVJSQVkgKGV4cHIpICYmICFzZS0+ZGF0YV9u b3RfbmVlZGVkCiEgCSAgICAgICAmJiAoIXJhbmtfcmVtYXAgfHwgc2UtPnVz ZV9vZmZzZXQpCiEgCSAgICAgICAmJiBHRkNfREVTQ1JJUFRPUl9UWVBFX1Ag KFRSRUVfVFlQRSAoZGVzYykpKQogIAl7CiAgCSAgZ2ZjX2NvbnZfZGVzY3Jp cHRvcl9vZmZzZXRfc2V0ICgmbG9vcC5wcmUsIHBhcm0sCiAgCQkJCQkgZ2Zj X2NvbnZfZGVzY3JpcHRvcl9vZmZzZXRfZ2V0IChkZXNjKSk7Ci0tLSA3NTI5 LDc1MzcgLS0tLQogIAkgICAgICA6IGJhc2U7CiAgCSAgZ2ZjX2NvbnZfZGVz Y3JpcHRvcl9vZmZzZXRfc2V0ICgmbG9vcC5wcmUsIHBhcm0sIHRtcCk7CiAg CX0KISAgICAgICBlbHNlIGlmIChHRkNfREVTQ1JJUFRPUl9UWVBFX1AgKFRS RUVfVFlQRSAoZGVzYykpCiEgCSAgICAgICAmJiAhc2UtPmRhdGFfbm90X25l ZWRlZAohIAkgICAgICAgJiYgKCFyYW5rX3JlbWFwIHx8IHNlLT51c2Vfb2Zm c2V0KSkKICAJewogIAkgIGdmY19jb252X2Rlc2NyaXB0b3Jfb2Zmc2V0X3Nl dCAoJmxvb3AucHJlLCBwYXJtLAogIAkJCQkJIGdmY19jb252X2Rlc2NyaXB0 b3Jfb2Zmc2V0X2dldCAoZGVzYykpOwpJbmRleDogZ2NjL3Rlc3RzdWl0ZS9n Zm9ydHJhbi5kZy90eXBlX3RvX2NsYXNzXzQuZjAzCj09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT0KKioqIGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvdHlwZV90 b19jbGFzc180LmYwMwkobm9uZXhpc3RlbnQpCi0tLSBnY2MvdGVzdHN1aXRl L2dmb3J0cmFuLmRnL3R5cGVfdG9fY2xhc3NfNC5mMDMJKHdvcmtpbmcgY29w eSkKKioqKioqKioqKioqKioqCioqKiAwICoqKioKLS0tIDEsMzQgLS0tLQor ICEgeyBkZy1kbyBydW4gfQorICEKKyAhIFRlc3QgdGhlIGZpeCBmb3IgUFI1 NjY5MSBjb21tZW50ICM3LgorICEKKyAhIENvbnRyaWJ1dGVkIGJ5IEphbnVz IFdlaWwgIDxqYW51c0BnY2MuZ251Lm9yZz4KKyAhCisgbW9kdWxlIG0yCisg ICBpbXBsaWNpdCBub25lCisgICB0eXBlIDo6IHRfc3R2CisgICAgIHJlYWwg OjogZjEKKyAgIGVuZCB0eXBlCisgY29udGFpbnMKKyAgIHN1YnJvdXRpbmUg bGNiKHkpCisgICAgIGNsYXNzKHRfc3R2KSwgaW50ZW50KGluKSA6OiB5KDop CisgICAgIGludGVnZXIgOjogaworICAgICBkbyBrPTEsc2l6ZSh5KQorICAg ICAgIGlmIChpbnQoeShrKSVmMSkgLm5lLiBrKSBjYWxsIGFib3J0CisgICAg IGVuZGRvCisgICBlbmQgc3Vicm91dGluZQorIGVuZCBtb2R1bGUKKyAKKyBw cm9ncmFtIHRlc3QKKyAgdXNlIG0yCisgIGltcGxpY2l0IG5vbmUKKyAKKyAg dHlwZSh0X3N0diksIGFsbG9jYXRhYmxlIDo6IHdvcmsoOikKKyAKKyAgIGFs bG9jYXRlKHdvcmsoNCkpCisgICB3b3JrKDopJWYxID0gKC8gMS4sMi4sMy4s NC4vKQorIAorICAgY2FsbCBsY2Iod29yaykKKyAgIGNhbGwgbGNiKHdvcmso OjQpKSAhIEluZGV4aW5nIHVzZWQgdG8gYmUgb2Zmc2V0IGJ5IDEuCisgCisg ZW5kIHByb2dyYW0K --001a11c0434444b4410563c154c5--