From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 782 invoked by alias); 5 Jul 2018 07:52:50 -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 129898 invoked by uid 89); 5 Jul 2018 07:52:04 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-5.7 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=ans, HX-Received:sk:o1-v6mr, ****, transfer X-HELO: mail-yw0-f194.google.com Received: from mail-yw0-f194.google.com (HELO mail-yw0-f194.google.com) (209.85.161.194) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 05 Jul 2018 07:52:02 +0000 Received: by mail-yw0-f194.google.com with SMTP id w76-v6so2651133ywg.4; Thu, 05 Jul 2018 00:52:01 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to:cc; bh=hQxSbgMWXcKujwr/lQG2OJAEcl5QdRFFfQJYd32YJAQ=; b=hqOvlS+VDl1r7INSjficayGLg9MtCNFf0sTa8EhEkp/qFR74/pEO2yZ/Psie+RInkY t27KxOp0bG4GkrgjzffdVsPRu1CdeFbF53RmzF6XdGqUPqZbjcJSw+LUIWt1js0OoGM3 DgQE4n56YRJ35L5bV38X+VH592JBYYNbZfrTCP5ZeSCkEcnBC2caAclThHBbCpQzC16Z EVH1kedlWmIlllW5Sin7IrTovgqjfkViVHJHdIF0TgnEUV6XM8Nttz6kbV4cNag8XqMl twUrBXwKhmGgLsdkqT7nSBTrlCux/Zq+DW9AabrK+UxcSdzK2mUPHWPXmjO1e2vfSr5g Lq+g== MIME-Version: 1.0 From: Paul Richard Thomas Date: Thu, 05 Jul 2018 07:52:00 -0000 Message-ID: Subject: [Patch, fortran] PR66679 - [OOP] ICE with class(*) and transfer To: "fortran@gcc.gnu.org" , gcc-patches Cc: polajnar.miha@gmail.com, Janus Weil Content-Type: multipart/mixed; boundary="0000000000007c599705703bd218" X-IsSubscribed: yes X-SW-Source: 2018-07/txt/msg00011.txt.bz2 --0000000000007c599705703bd218 Content-Type: text/plain; charset="UTF-8" Content-length: 515 The comment in the patch says it all. Bootstrapped and regtested on FC28/x86_64 - OK for trunk? Paul 2018-07-05 Paul Thomas PR fortran/66679 * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array elements are returned as references to the data element. Get the class expression by stripping back the references. Use this for the element size. 2018-07-05 Paul Thomas PR fortran/66679 * gfortran.dg/transfer_class_3.f90: New test. --0000000000007c599705703bd218 Content-Type: text/x-patch; charset="US-ASCII"; name="submit.diff" Content-Disposition: attachment; filename="submit.diff" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_jj895dm00 Content-length: 4201 SW5kZXg6IGdjYy9mb3J0cmFuL3RyYW5zLWludHJpbnNpYy5jCj09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT0KKioqIGdjYy9mb3J0cmFuL3RyYW5zLWludHJpbnNp Yy5jCShyZXZpc2lvbiAyNjIyOTkpCi0tLSBnY2MvZm9ydHJhbi90cmFucy1p bnRyaW5zaWMuYwkod29ya2luZyBjb3B5KQoqKioqKioqKioqKioqKiogZ2Zj X2NvbnZfaW50cmluc2ljX3RyYW5zZmVyIChnZmNfc2UgKiBzZQoqKiogNzM0 Niw3MzU4ICoqKioKICAgIHRyZWUgdXBwZXI7CiAgICB0cmVlIGxvd2VyOwog ICAgdHJlZSBzdG10OwogICAgZ2ZjX2FjdHVhbF9hcmdsaXN0ICphcmc7CiAg ICBnZmNfc2UgYXJnc2U7CiAgICBnZmNfYXJyYXlfaW5mbyAqaW5mbzsKICAg IHN0bXRibG9ja190IGJsb2NrOwogICAgaW50IG47CiAgICBib29sIHNjYWxh cl9tb2xkOwohICAgZ2ZjX2V4cHIgKnNvdXJjZV9leHByLCAqbW9sZF9leHBy OwogIAogICAgaW5mbyA9IE5VTEw7CiAgICBpZiAoc2UtPmxvb3ApCi0tLSA3 MzQ2LDczNTkgLS0tLQogICAgdHJlZSB1cHBlcjsKICAgIHRyZWUgbG93ZXI7 CiAgICB0cmVlIHN0bXQ7CisgICB0cmVlIGNsYXNzX3JlZiA9IE5VTExfVFJF RTsKICAgIGdmY19hY3R1YWxfYXJnbGlzdCAqYXJnOwogICAgZ2ZjX3NlIGFy Z3NlOwogICAgZ2ZjX2FycmF5X2luZm8gKmluZm87CiAgICBzdG10YmxvY2tf dCBibG9jazsKICAgIGludCBuOwogICAgYm9vbCBzY2FsYXJfbW9sZDsKISAg IGdmY19leHByICpzb3VyY2VfZXhwciwgKm1vbGRfZXhwciwgKmNsYXNzX2V4 cHI7CiAgCiAgICBpbmZvID0gTlVMTDsKICAgIGlmIChzZS0+bG9vcCkKKioq KioqKioqKioqKioqIGdmY19jb252X2ludHJpbnNpY190cmFuc2ZlciAoZ2Zj X3NlICogc2UKKioqIDczODMsNzM4OSAqKioqCiAgICAgIHsKICAgICAgICBn ZmNfY29udl9leHByX3JlZmVyZW5jZSAoJmFyZ3NlLCBhcmctPmV4cHIpOwog ICAgICAgIGlmIChhcmctPmV4cHItPnRzLnR5cGUgPT0gQlRfQ0xBU1MpCiEg CXNvdXJjZSA9IGdmY19jbGFzc19kYXRhX2dldCAoYXJnc2UuZXhwcik7CiAg ICAgICAgZWxzZQogIAlzb3VyY2UgPSBhcmdzZS5leHByOwogIAotLS0gNzM4 NCw3NDA3IC0tLS0KICAgICAgewogICAgICAgIGdmY19jb252X2V4cHJfcmVm ZXJlbmNlICgmYXJnc2UsIGFyZy0+ZXhwcik7CiAgICAgICAgaWYgKGFyZy0+ ZXhwci0+dHMudHlwZSA9PSBCVF9DTEFTUykKISAJewohIAkgIHRtcCA9IGJ1 aWxkX2ZvbGRfaW5kaXJlY3RfcmVmX2xvYyAoaW5wdXRfbG9jYXRpb24sIGFy Z3NlLmV4cHIpOwohIAkgIGlmIChHRkNfQ0xBU1NfVFlQRV9QIChUUkVFX1RZ UEUgKHRtcCkpKQohIAkgICAgc291cmNlID0gZ2ZjX2NsYXNzX2RhdGFfZ2V0 ICh0bXApOwohIAkgIGVsc2UKISAJICAgIHsKISAJICAgICAgLyogQXJyYXkg ZWxlbWVudHMgYXJlIGV2YWx1YXRlZCBhcyBhIHJlZmVyZW5jZSB0byB0aGUg ZGF0YS4KISAJCSBUbyBvYnRhaW4gdGhlIHZwdHIgZm9yIHRoZSBlbGVtZW50 IHNpemUsIHRoZSBhcmd1bWVudAohIAkJIGV4cHJlc3Npb24gbXVzdCBiZSBz dHJpcHBlZCB0byB0aGUgY2xhc3MgcmVmZXJlbmNlIGFuZAohIAkJIHJlLWV2 YWx1YXRlZC4gVGhlIHByZSBhbmQgcG9zdCBibG9ja3MgYXJlIG5vdCBuZWVk ZWQuICAqLwohIAkgICAgICBnY2NfYXNzZXJ0IChhcmctPmV4cHItPmV4cHJf dHlwZSA9PSBFWFBSX1ZBUklBQkxFKTsKISAJICAgICAgc291cmNlID0gYXJn c2UuZXhwcjsKISAJICAgICAgY2xhc3NfZXhwciA9IGdmY19maW5kX2FuZF9j dXRfYXRfbGFzdF9jbGFzc19yZWYgKGFyZy0+ZXhwcik7CiEgCSAgICAgIGdm Y19pbml0X3NlICgmYXJnc2UsIE5VTEwpOwohIAkgICAgICBnZmNfY29udl9l eHByICgmYXJnc2UsIGNsYXNzX2V4cHIpOwohIAkgICAgICBjbGFzc19yZWYg PSBhcmdzZS5leHByOwohIAkgICAgfQohIAl9CiAgICAgICAgZWxzZQogIAlz b3VyY2UgPSBhcmdzZS5leHByOwogIAoqKioqKioqKioqKioqKiogZ2ZjX2Nv bnZfaW50cmluc2ljX3RyYW5zZmVyIChnZmNfc2UgKiBzZQoqKiogNzM5NSw3 NDAwICoqKioKLS0tIDc0MTMsNzQyMSAtLS0tCiAgCQkJCQkgYXJnc2Uuc3Ry aW5nX2xlbmd0aCk7CiAgCSAgYnJlYWs7CiAgCWNhc2UgQlRfQ0xBU1M6Cisg CSAgaWYgKGNsYXNzX3JlZiAhPSBOVUxMX1RSRUUpCisgCSAgICB0bXAgPSBn ZmNfY2xhc3NfdnRhYl9zaXplX2dldCAoY2xhc3NfcmVmKTsKKyAJICBlbHNl CiAgCSAgICB0bXAgPSBnZmNfY2xhc3NfdnRhYl9zaXplX2dldCAoYXJnc2Uu ZXhwcik7CiAgCSAgYnJlYWs7CiAgCWRlZmF1bHQ6CkluZGV4OiBnY2MvdGVz dHN1aXRlL2dmb3J0cmFuLmRnL3RyYW5zZmVyX2NsYXNzXzMuZjkwCj09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT0KKioqIGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4u ZGcvdHJhbnNmZXJfY2xhc3NfMy5mOTAJKG5vbmV4aXN0ZW50KQotLS0gZ2Nj L3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy90cmFuc2Zlcl9jbGFzc18zLmY5MAko d29ya2luZyBjb3B5KQoqKioqKioqKioqKioqKioKKioqIDAgKioqKgotLS0g MSwxOCAtLS0tCisgISB7IGRnLWRvIHJ1biB9CisgIQorICEgVGVzdCB0aGUg Zml4IGZvciBQUjY2Njc5LgorICEKKyAhIENvbnRyaWJ1dGVkIGJ5IE1paGEg UG9sYWpuYXIgIDxwb2xham5hci5taWhhQGdtYWlsLmNvbT4KKyAhCisgcHJv Z3JhbSBtYWluCisgICBpbXBsaWNpdCBub25lCisgICBjbGFzcygqKSwgYWxs b2NhdGFibGUgOjogdmVjKDopCisgICBpbnRlZ2VyIDo6IHZhciwgYW5zKDIp CisgICBhbGxvY2F0ZSh2ZWMoMiksc291cmNlPVsxXzQsIDJfNF0pCisgCisg ISBUaGlzIHdvcmtlZCBjb3JyZWN0bHkuCisgICBpZiAoYW55ICh0cmFuc2Zl cih2ZWMsW3Zhcl0sMikgLm5lLiBbMV80LCAyXzRdKSkgc3RvcCAxCisgCisg ISBUaGlzIGNhdXNlZCBhbiBJQ0UuCisgICBpZiAoYW55IChbdHJhbnNmZXIo dmVjKDEpLFt2YXJdKSwgdHJhbnNmZXIodmVjKDIpLFt2YXJdKV0gLm5lLiBb MV80LCAyXzRdKSkgc3RvcCAyCisgZW5kIHByb2dyYW0gbWFpbgo= --0000000000007c599705703bd218--