From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15379 invoked by alias); 11 Jun 2010 04:17:44 -0000 Received: (qmail 15347 invoked by uid 22791); 11 Jun 2010 04:17:39 -0000 X-SWARE-Spam-Status: No, hits=0.8 required=5.0 tests=AWL,BAYES_20,DKIM_SIGNED,DKIM_VALID,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM X-Spam-Check-By: sourceware.org Received: from mail-ww0-f47.google.com (HELO mail-ww0-f47.google.com) (74.125.82.47) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 11 Jun 2010 04:17:30 +0000 Received: by wwb17 with SMTP id 17so474775wwb.20 for ; Thu, 10 Jun 2010 21:17:28 -0700 (PDT) MIME-Version: 1.0 Received: by 10.216.86.65 with SMTP id v43mr1272241wee.22.1276229847939; Thu, 10 Jun 2010 21:17:27 -0700 (PDT) Received: by 10.216.35.70 with HTTP; Thu, 10 Jun 2010 21:17:27 -0700 (PDT) Date: Fri, 11 Jun 2010 07:17:00 -0000 Message-ID: Subject: [Patch, Fortran] PR 42051,43896: [OOP] ICE in gfc_conv_variable, at fortran/trans-expr.c:551 From: Janus Weil To: gfortran , gcc-patches Content-Type: multipart/mixed; boundary=0016e6d784eebcf93a0488b96aa6 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: 2010-06/txt/msg01174.txt.bz2 --0016e6d784eebcf93a0488b96aa6 Content-Type: text/plain; charset=ISO-8859-1 Content-length: 1093 Hi all, here is an OOP patch by Paul, which I am taking up and posting here because a) it is simple b) it has been lying around for a while c) it fixes two bugs (both of which have been reported by real-world users. In fact they are duplicates.) d) Paul seems to have little time for gfortran lately :( e) I simply want to get this baby in finally :) [Btw, the original test case in PR 42051 still does not work, but this is apparently due to some other bug, possibly related or equal to PR 44064.] The patch has been regtested on x86_64-unknown-linux-gnu. Ok for trunk? Actually, since it's Paul's patch, I guess I could just approve it myself (I do indeed think it's fine). Therefore I'll just commit it tomorrow on behalf of Paul if no one objects by then. Cheers, Janus 2010-06-11 Paul Thomas PR fortran/42051 PR fortran/43896 * trans-expr.c (gfc_conv_derived_to_class): Handle array-valued functions with CLASS formal arguments. 2010-06-11 Paul Thomas PR fortran/42051 PR fortran/43896 * gfortran.dg/class_23.f03: New test. --0016e6d784eebcf93a0488b96aa6 Content-Type: application/octet-stream; name="pr42051.diff" Content-Disposition: attachment; filename="pr42051.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gaai7uv80 Content-length: 895 SW5kZXg6IGdjYy9mb3J0cmFuL3RyYW5zLWV4cHIuYwo9PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09Ci0tLSBnY2MvZm9ydHJhbi90cmFucy1leHByLmMJKHJldmlz aW9uIDE2MDU4OCkKKysrIGdjYy9mb3J0cmFuL3RyYW5zLWV4cHIuYwkod29y a2luZyBjb3B5KQpAQCAtMjQ5MiwxMiArMjQ5MiwxNCBAQCBnZmNfY29udl9k ZXJpdmVkX3RvX2NsYXNzIChnZmNfc2UgKnBhcm1zZSwgZ2ZjX2V4cAogICBz cyA9IGdmY193YWxrX2V4cHIgKGUpOwogICBpZiAoc3MgPT0gZ2ZjX3NzX3Rl cm1pbmF0b3IpCiAgICAgeworICAgICAgcGFybXNlLT5zcyA9IE5VTEw7CiAg ICAgICBnZmNfY29udl9leHByX3JlZmVyZW5jZSAocGFybXNlLCBlKTsKICAg ICAgIHRtcCA9IGZvbGRfY29udmVydCAoVFJFRV9UWVBFIChjdHJlZSksIHBh cm1zZS0+ZXhwcik7CiAgICAgICBnZmNfYWRkX21vZGlmeSAoJnBhcm1zZS0+ cHJlLCBjdHJlZSwgdG1wKTsKICAgICB9CiAgIGVsc2UKICAgICB7CisgICAg ICBwYXJtc2UtPnNzID0gc3M7CiAgICAgICBnZmNfY29udl9leHByIChwYXJt c2UsIGUpOwogICAgICAgZ2ZjX2FkZF9tb2RpZnkgKCZwYXJtc2UtPnByZSwg Y3RyZWUsIHBhcm1zZS0+ZXhwcik7CiAgICAgfQo= --0016e6d784eebcf93a0488b96aa6 Content-Type: application/octet-stream; name="class_23.f03" Content-Disposition: attachment; filename="class_23.f03" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gaai88ix1 Content-length: 639 ISB7IGRnLWRvIGNvbXBpbGUgfQohCiEgUFIgNDIwNTE6IFtPT1BdIElDRSBv biBhcnJheS12YWx1ZWQgZnVuY3Rpb24gd2l0aCBDTEFTUyBmb3JtYWwgYXJn dW1lbnQKIQohIE9yaWdpbmFsIHRlc3QgY2FzZSBieSBEYW1pYW4gUm91c29u IDxkYW1pYW5Acm91c29uLm5ldD4KISBNb2RpZmllZCBieSBKYW51cyBXZWls IDxqYW51c0BnY2MuZ251Lm9yZz4KCiAgdHlwZSBncmlkCiAgZW5kIHR5cGUg Cgpjb250YWlucwoKICBmdW5jdGlvbiByZXR1cm5feCh0aGlzKSByZXN1bHQo dGhpc194KQogICAgY2xhc3MoZ3JpZCkgOjogdGhpcwogICAgcmVhbCAgLGRp bWVuc2lvbigxKSA6OiB0aGlzX3gKICBlbmQgZnVuY3Rpb24KCiAgc3Vicm91 dGluZSBvdXRwdXQoKQogICAgdHlwZShncmlkKSA6OiBtZXNoCiAgICByZWFs ICxkaW1lbnNpb24oMSkgOjogeAogICAgeCA9IHJldHVybl94KG1lc2gpCiAg ZW5kIHN1YnJvdXRpbmUKCmVuZAo= --0016e6d784eebcf93a0488b96aa6--