From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 26266 invoked by alias); 10 Mar 2011 19:55:40 -0000 Received: (qmail 26245 invoked by uid 22791); 10 Mar 2011 19:55:39 -0000 X-SWARE-Spam-Status: No, hits=-0.6 required=5.0 tests=AWL,BAYES_00,DKIM_SIGNED,DKIM_VALID,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,RFC_ABUSE_POST X-Spam-Check-By: sourceware.org Received: from mail-gw0-f47.google.com (HELO mail-gw0-f47.google.com) (74.125.83.47) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 10 Mar 2011 19:55:34 +0000 Received: by gwb11 with SMTP id 11so701650gwb.20 for ; Thu, 10 Mar 2011 11:55:32 -0800 (PST) MIME-Version: 1.0 Received: by 10.150.241.3 with SMTP id o3mr1534095ybh.2.1299786932406; Thu, 10 Mar 2011 11:55:32 -0800 (PST) Received: by 10.147.168.9 with HTTP; Thu, 10 Mar 2011 11:55:32 -0800 (PST) In-Reply-To: References: <4D78EB75.5000605@net-b.de> Date: Thu, 10 Mar 2011 19:55:00 -0000 Message-ID: Subject: Re: Problem with procedure pointers From: Janus Weil To: Paul Richard Thomas Cc: Tobias Burnus , gfortran , gcc-patches Content-Type: multipart/mixed; boundary=000e0cd5162e63c9a8049e263a4a 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: 2011-03/txt/msg00534.txt.bz2 --000e0cd5162e63c9a8049e263a4a Content-Type: text/plain; charset=ISO-8859-1 Content-length: 584 >> While I am inclined to not-bump the version number, I won't mind if you >> decide to bump it. > > I agree. Ok, since you guys seem to agree on that, here is the patch without module version bumping, but this time complete with test case and ChangeLog. Ok for trunk? Cheers, Janus 2011-03-10 Janus Weil PR fortran/47768 * module.c (ab_attribute,attr_bits): Add AB_PROC_POINTER_COMP. (mio_symbol_attribute): Handle attribute 'proc_pointer_comp'. 2011-03-10 Janus Weil PR fortran/47768 * gfortran.dg/proc_ptr_comp_31.f90: New. --000e0cd5162e63c9a8049e263a4a Content-Type: application/octet-stream; name="mod_ppc.diff" Content-Disposition: attachment; filename="mod_ppc.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gl43irle0 Content-length: 2786 SW5kZXg6IGdjYy9mb3J0cmFuL21vZHVsZS5jCj09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT0KLS0tIGdjYy9mb3J0cmFuL21vZHVsZS5jCShyZXZpc2lvbiAxNzA4 NDYpCisrKyBnY2MvZm9ydHJhbi9tb2R1bGUuYwkod29ya2luZyBjb3B5KQpA QCAtMTY3MSw4ICsxNjcxLDkgQEAgdHlwZWRlZiBlbnVtCiAgIEFCX1BPSU5U RVIsIEFCX1RBUkdFVCwgQUJfRFVNTVksIEFCX1JFU1VMVCwgQUJfREFUQSwK ICAgQUJfSU5fTkFNRUxJU1QsIEFCX0lOX0NPTU1PTiwgQUJfRlVOQ1RJT04s IEFCX1NVQlJPVVRJTkUsIEFCX1NFUVVFTkNFLAogICBBQl9FTEVNRU5UQUws IEFCX1BVUkUsIEFCX1JFQ1VSU0lWRSwgQUJfR0VORVJJQywgQUJfQUxXQVlT X0VYUExJQ0lULAotICBBQl9DUkFZX1BPSU5URVIsIEFCX0NSQVlfUE9JTlRF RSwgQUJfVEhSRUFEUFJJVkFURSwgQUJfQUxMT0NfQ09NUCwKLSAgQUJfUE9J TlRFUl9DT01QLCBBQl9QUklWQVRFX0NPTVAsIEFCX1ZBTFVFLCBBQl9WT0xB VElMRSwgQUJfUFJPVEVDVEVELAorICBBQl9DUkFZX1BPSU5URVIsIEFCX0NS QVlfUE9JTlRFRSwgQUJfVEhSRUFEUFJJVkFURSwKKyAgQUJfQUxMT0NfQ09N UCwgQUJfUE9JTlRFUl9DT01QLCBBQl9QUk9DX1BPSU5URVJfQ09NUCwgQUJf UFJJVkFURV9DT01QLAorICBBQl9WQUxVRSwgQUJfVk9MQVRJTEUsIEFCX1BS T1RFQ1RFRCwKICAgQUJfSVNfQklORF9DLCBBQl9JU19DX0lOVEVST1AsIEFC X0lTX0lTT19DLCBBQl9BQlNUUkFDVCwgQUJfWkVST19DT01QLAogICBBQl9J U19DTEFTUywgQUJfUFJPQ0VEVVJFLCBBQl9QUk9DX1BPSU5URVIsIEFCX0FT WU5DSFJPTk9VUywgQUJfQ09ESU1FTlNJT04sCiAgIEFCX0NPQVJSQVlfQ09N UCwgQUJfVlRZUEUsIEFCX1ZUQUIsIEFCX0NPTlRJR1VPVVMsIEFCX0NMQVNT X1BPSU5URVIsCkBAIC0xNzE2LDYgKzE3MTcsNyBAQCBzdGF0aWMgY29uc3Qg bXN0cmluZyBhdHRyX2JpdHNbXSA9CiAgICAgbWluaXQgKCJBTExPQ19DT01Q IiwgQUJfQUxMT0NfQ09NUCksCiAgICAgbWluaXQgKCJDT0FSUkFZX0NPTVAi LCBBQl9DT0FSUkFZX0NPTVApLAogICAgIG1pbml0ICgiUE9JTlRFUl9DT01Q IiwgQUJfUE9JTlRFUl9DT01QKSwKKyAgICBtaW5pdCAoIlBST0NfUE9JTlRF Ul9DT01QIiwgQUJfUFJPQ19QT0lOVEVSX0NPTVApLAogICAgIG1pbml0ICgi UFJJVkFURV9DT01QIiwgQUJfUFJJVkFURV9DT01QKSwKICAgICBtaW5pdCAo IlpFUk9fQ09NUCIsIEFCX1pFUk9fQ09NUCksCiAgICAgbWluaXQgKCJQUk9U RUNURUQiLCBBQl9QUk9URUNURUQpLApAQCAtMTg4MSw2ICsxODgzLDggQEAg bWlvX3N5bWJvbF9hdHRyaWJ1dGUgKHN5bWJvbF9hdHRyaWJ1dGUgKmF0dHIp CiAJTUlPX05BTUUgKGFiX2F0dHJpYnV0ZSkgKEFCX0FMTE9DX0NPTVAsIGF0 dHJfYml0cyk7CiAgICAgICBpZiAoYXR0ci0+cG9pbnRlcl9jb21wKQogCU1J T19OQU1FIChhYl9hdHRyaWJ1dGUpIChBQl9QT0lOVEVSX0NPTVAsIGF0dHJf Yml0cyk7CisgICAgICBpZiAoYXR0ci0+cHJvY19wb2ludGVyX2NvbXApCisJ TUlPX05BTUUgKGFiX2F0dHJpYnV0ZSkgKEFCX1BST0NfUE9JTlRFUl9DT01Q LCBhdHRyX2JpdHMpOwogICAgICAgaWYgKGF0dHItPnByaXZhdGVfY29tcCkK IAlNSU9fTkFNRSAoYWJfYXR0cmlidXRlKSAoQUJfUFJJVkFURV9DT01QLCBh dHRyX2JpdHMpOwogICAgICAgaWYgKGF0dHItPmNvYXJyYXlfY29tcCkKQEAg LTIwMjcsNiArMjAzMSw5IEBAIG1pb19zeW1ib2xfYXR0cmlidXRlIChzeW1i b2xfYXR0cmlidXRlICphdHRyKQogCSAgICBjYXNlIEFCX1BPSU5URVJfQ09N UDoKIAkgICAgICBhdHRyLT5wb2ludGVyX2NvbXAgPSAxOwogCSAgICAgIGJy ZWFrOworCSAgICBjYXNlIEFCX1BST0NfUE9JTlRFUl9DT01QOgorCSAgICAg IGF0dHItPnByb2NfcG9pbnRlcl9jb21wID0gMTsKKwkgICAgICBicmVhazsK IAkgICAgY2FzZSBBQl9QUklWQVRFX0NPTVA6CiAJICAgICAgYXR0ci0+cHJp dmF0ZV9jb21wID0gMTsKIAkgICAgICBicmVhazsK --000e0cd5162e63c9a8049e263a4a Content-Type: application/octet-stream; name="proc_ptr_comp_31.f90" Content-Disposition: attachment; filename="proc_ptr_comp_31.f90" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gl43jccc1 Content-length: 749 ISB7IGRnLWRvIGNvbXBpbGUgfQohCiEgUFIgNDc3Njg6IHByaW50aW5nIGEg ZGVyaXZlZC10eXBlIHZhcmlhYmxlIHdpdGggcHJvYy1wb2ludGVyIGNvbXBv bmVudHMKIQohIENvbnRyaWJ1dGVkIGJ5IEFyamVuIE1hcmt1cyA8YXJqZW4u bWFya3VzODk1QGdtYWlsLmNvbT4KCm1vZHVsZSBwcm9jX3BvaW50ZXJzCiAg aW1wbGljaXQgbm9uZQogIHR5cGUgOjogcmVjdGFuZ2xlCiAgICByZWFsIDo6 IHdpZHRoLCBoZWlnaHQKICAgIHByb2NlZHVyZShyZWFsKSwgcG9pbnRlciwg bm9wYXNzIDo6IGdldF9zcGVjaWFsX2FyZWEKICBlbmQgdHlwZQplbmQgbW9k dWxlCgpwcm9ncmFtIHRlc3Rfb2JqZWN0cwogIHVzZSBwcm9jX3BvaW50ZXJz CiAgaW1wbGljaXQgbm9uZQogIHR5cGUocmVjdGFuZ2xlKSA6OiByZWN0CiAg d3JpdGUoKiwqKSByZWN0ICAgICAgICAgICEgeyBkZy1lcnJvciAiY2Fubm90 IGhhdmUgcHJvY2VkdXJlIHBvaW50ZXIgY29tcG9uZW50cyIgfQplbmQgcHJv Z3JhbQoKISB7IGRnLWZpbmFsIHsgY2xlYW51cC1tb2R1bGVzICJwcm9jX3Bv aW50ZXJzIiB9IH0K --000e0cd5162e63c9a8049e263a4a--