From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pg1-x533.google.com (mail-pg1-x533.google.com [IPv6:2607:f8b0:4864:20::533]) by sourceware.org (Postfix) with ESMTPS id 446713858D1E; Sun, 31 Mar 2024 13:01:54 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 446713858D1E Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 446713858D1E Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2607:f8b0:4864:20::533 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1711890116; cv=none; b=FSrvpa+dA/J1wwOfPW+xoGWDkm895OboOcOJfz3szNapvCamiJmbsZgJLFOGxMiQElXpGaVHvKcTc2nkqeWx5vv3VQPoG4Z1Qcs9CfWuNS+D5Y7MS9D0Vh9aY5PVOipX9wioZoB5oz31tIXN9TkTjB/in23RwfNZD9nlLi404ho= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1711890116; c=relaxed/simple; bh=U+F6Ch4fEEfrKCs55L2M9ONeqiwmBlUTPqVIV1QlaAA=; h=DKIM-Signature:MIME-Version:From:Date:Message-ID:Subject:To; b=mdDJTYP3o6y5RG1szpb5RP4mqBLDSy327sB55FoM2hb3R9bQ4le+DMMBlSs4rgDfFDBtCjHCXGxDf2gYBM38+6G1mGKWla6AbEh1q83stUE5H8fzO1eiP5JPjoqZ3X8I5Dh6wSqNZ0GSHD9Kx3Vu4iCV3rBonKr65sqk9JN1TXA= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-pg1-x533.google.com with SMTP id 41be03b00d2f7-517ab9a4a13so2469834a12.1; Sun, 31 Mar 2024 06:01:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1711890113; x=1712494913; darn=gcc.gnu.org; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=84WDITWSfNVz4M0qSEUEIOW7dxz1AZ5PTHGGwpd8U/8=; b=dAAUGKxDRRNwyPIaKio24MpT384buzB4TUvTeoyOXfDoXWkdTz7jlhkklBVK3U9Q4k LEVGx3NPrJ3VLXdN95QStLwPM7lcyjRnKT4C4NEmQkOh6U1vA7hYHAy5mqJoiR9zRML7 RT/kUdHNQE49BTJOlLLndSTsACftRVu8wU1e3ZYVNVPwb482ZG51JK1AE1xFK1pg2t1a hRwl2cQg3xYjE1Eo0lvkSwyT45Im17lVytsBs24TBN35Zgf1pw4lGeDFbPpM4YqWPltM CRME50G0lOnnDFGyZ2vwFUM1KxyiN3NoUjLhP8m0gYYRffpvFIBwZNnJKigm/DuMh9Wt qBlw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1711890113; x=1712494913; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=84WDITWSfNVz4M0qSEUEIOW7dxz1AZ5PTHGGwpd8U/8=; b=HrZsnNZfEKnkYcEQqudRw0rNRpMbVrUqTgiEy5fEghVGeWBqt30geE3YzZMO0fOdlo /MJaAn2jWfAgh3f4uG8MhqyUreDmorY+ahE2P6olkNyk/DcxYdnVNyaqlIAy949tGT8c zaNvWFVNOXG49uuF+UcQYC/rOinhuh330BwPNthjOlJ3CJe7S4bzrQwG6eKjD2bJRNfq wqmNId5xP9IIIjkVWSgPIozuMlR3XKeGUdWleK5k9fJrxoFuQwYyQO6OkJinoXtkYioK G5ubCxpSmr7UA8MIb6keU2MuoHXxVUDYBSDsC7pcYHfhTBVhl9pRmFAD3eM20+iEgpQc kAIA== X-Forwarded-Encrypted: i=1; AJvYcCX2bV02+R+gucSSpGv9UXdO9IcdiPCNvp/g+DIswlfg55XqZhwORj35BSsF0nPBVspndD7UKj5arj5ZZHl/pptkTQRp3fQ5lQ== X-Gm-Message-State: AOJu0Yw/Qb7rSA9GSvdqOEwliWQYPky/uOoYzd75zw3JzudiEdF1fjCH 0TqDeERone0KP6f80Ntcs4N6bFjrg876lgrLXdXQjVzC5/0zPJmM7NMjzZMqf7HZhqcsL7/rykM ZAfiUHTzTmb+39fMLSDTrXgdDGvFrzf8Ehuk= X-Google-Smtp-Source: AGHT+IHacgwD0NyF7OXJbyykoJ9geuBt13wO1AeRvUMoVOjt9wod3UAH0egHP+7K/6oMqU62geSw7UfzVuSQiE6DpFw= X-Received: by 2002:a17:902:a70b:b0:1dd:a518:d692 with SMTP id w11-20020a170902a70b00b001dda518d692mr6820806plq.15.1711890112896; Sun, 31 Mar 2024 06:01:52 -0700 (PDT) MIME-Version: 1.0 From: Paul Richard Thomas Date: Sun, 31 Mar 2024 13:01:41 +0000 Message-ID: Subject: [Patch, fortran] PR106999 [11/12/13/14 Regression] ICE tree check: expected record_type or union_type or qual_union_type, have function_type in gfc_class_data_get, at fortran/trans-expr.cc:233 To: "fortran@gcc.gnu.org" , gcc-patches Content-Type: multipart/mixed; boundary="0000000000001307670614f47a40" 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,KAM_NUMSUBJECT,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP,WEIRD_PORT 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: --0000000000001307670614f47a40 Content-Type: multipart/alternative; boundary="0000000000001307660614f47a3e" --0000000000001307660614f47a3e Content-Type: text/plain; charset="UTF-8" This regression has a relatively simple fix. The passing of a subroutine procedure pointer component to a dummy variable was being missed completely. The error has been added. Conversely, an error was generated for a procedure pointer variable but no use was being made of the interface, if one was available. This has been corrected. OK for mainline and backporting in a couple of weeks? Paul Fortran: Add error for subroutine passed to a variable dummy [PR106999] 2024-03-31 Paul Thomas gcc/fortran PR fortran/106999 *interface.cc (gfc_compare_interfaces): Add error for a subroutine proc pointer passed to a variable formal. (compare_parameter): If a procedure pointer is being passed to a non-procedure formal arg, and there is an an interface, use gfc_compare_interfaces to check and provide a more useful error message. gcc/testsuite/ PR fortran/106999 * gfortran.dg/pr106999.f90: New test. --0000000000001307660614f47a3e-- --0000000000001307670614f47a40 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_lufj54i20 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL2ludGVyZmFjZS5jYyBiL2djYy9m b3J0cmFuL2ludGVyZmFjZS5jYwppbmRleCA3Yjg2YTMzOGJjMS4uYmYxNTFk YWU3NDMgMTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL2ludGVyZmFjZS5jYwor KysgYi9nY2MvZm9ydHJhbi9pbnRlcmZhY2UuY2MKQEAgLTE3ODksNiArMTc4 OSwxNCBAQCBnZmNfY29tcGFyZV9pbnRlcmZhY2VzIChnZmNfc3ltYm9sICpz MSwgZ2ZjX3N5bWJvbCAqczIsIGNvbnN0IGNoYXIgKm5hbWUyLAogICAgICAg cmV0dXJuIGZhbHNlOwogICAgIH0KCisgIGlmIChzMi0+YXR0ci5zdWJyb3V0 aW5lICYmIHMxLT5hdHRyLmZsYXZvciA9PSBGTF9WQVJJQUJMRSkKKyAgICB7 CisgICAgICBpZiAoZXJybXNnICE9IE5VTEwpCisJc25wcmludGYgKGVycm1z ZywgZXJyX2xlbiwgInN1YnJvdXRpbmUgcHJvYyBwb2ludGVyICclcycgcGFz c2VkICIKKwkJICAidG8gZHVtbXkgdmFyaWFibGUgJyVzJyIsIG5hbWUyLCBz MS0+bmFtZSk7CisgICAgICByZXR1cm4gZmFsc2U7CisgICAgfQorCiAgIC8q IERvIHN0cmljdCBjaGVja3Mgb24gYWxsIGNoYXJhY3RlcmlzdGljcwogICAg ICAoZm9yIGR1bW15IHByb2NlZHVyZXMgYW5kIHByb2NlZHVyZSBwb2ludGVy IGFzc2lnbm1lbnRzKS4gICovCiAgIGlmICghZ2VuZXJpY19mbGFnICYmIHN0 cmljdF9mbGFnKQpAQCAtMjQyNSwxMiArMjQzMywyMiBAQCBjb21wYXJlX3Bh cmFtZXRlciAoZ2ZjX3N5bWJvbCAqZm9ybWFsLCBnZmNfZXhwciAqYWN0dWFs LAogICAgIHsKICAgICAgIGdmY19zeW1ib2wgKmFjdF9zeW0gPSBhY3R1YWwt PnN5bXRyZWUtPm4uc3ltOwoKLSAgICAgIGlmIChmb3JtYWwtPmF0dHIuZmxh dm9yICE9IEZMX1BST0NFRFVSRSkKKyAgICAgIGlmIChmb3JtYWwtPmF0dHIu Zmxhdm9yICE9IEZMX1BST0NFRFVSRSAmJiAhYWN0X3N5bS0+dHMuaW50ZXJm YWNlKQogCXsKIAkgIGlmICh3aGVyZSkKIAkgICAgZ2ZjX2Vycm9yICgiSW52 YWxpZCBwcm9jZWR1cmUgYXJndW1lbnQgYXQgJUwiLCAmYWN0dWFsLT53aGVy ZSk7CiAJICByZXR1cm4gZmFsc2U7CiAJfQorICAgICAgZWxzZSBpZiAoYWN0 X3N5bS0+dHMuaW50ZXJmYWNlCisJICAgICAgICYmICFnZmNfY29tcGFyZV9p bnRlcmZhY2VzIChmb3JtYWwsIGFjdF9zeW0tPnRzLmludGVyZmFjZSwKKwkJ CQkJICAgYWN0X3N5bS0+bmFtZSwgMCwgMSwgZXJyLAorCQkJCQkgICBzaXpl b2YoZXJyKSxOVUxMLCBOVUxMKSkKKwl7CisJICBpZiAod2hlcmUpCisJICAg IGdmY19lcnJvcl9vcHQgKDAsICJJbnRlcmZhY2UgbWlzbWF0Y2ggaW4gZHVt bXkgcHJvY2VkdXJlICVxcyBhdCAlTDoiCisJCQkgICAiICVzIiwgZm9ybWFs LT5uYW1lLCAmYWN0dWFsLT53aGVyZSwgZXJyKTsKKwkgIHJldHVybiBmYWxz ZTsKKwl9CgogICAgICAgaWYgKCFnZmNfY29tcGFyZV9pbnRlcmZhY2VzIChm b3JtYWwsIGFjdF9zeW0sIGFjdF9zeW0tPm5hbWUsIDAsIDEsIGVyciwKIAkJ CQkgICBzaXplb2YoZXJyKSwgTlVMTCwgTlVMTCkpCmRpZmYgLS1naXQgYS9n Y2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL3ByMTA2OTk5LmY5MCBiL2djYy90 ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcHIxMDY5OTkuZjkwCm5ldyBmaWxlIG1v ZGUgMTAwNjQ0CmluZGV4IDAwMDAwMDAwMDAwLi5iM2YxZDc3NDFmMwotLS0g L2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcHIx MDY5OTkuZjkwCkBAIC0wLDAgKzEsMzMgQEAKKyEgeyBkZy1kbyBjb21waWxl IH0KKyEgVGVzdCB0aGUgZml4IGZvciBQUjEwNjk5OQorISBDb250cmlidXRl ZCBieSBHZXJoYXJkIFN0ZWlubWV0eiAgPGdzY2ZxQHQtb25saW5lLmRlPgor cHJvZ3JhbSBwCisgICB0eXBlIHQKKyAgICAgIGludGVnZXIgOjogaQorICAg ICAgcHJvY2VkdXJlKGcpLCBwb2ludGVyIDo6IGYKKyAgIGVuZCB0eXBlCisg ICBjbGFzcyh0KSwgYWxsb2NhdGFibGUgOjogeSwgegorICAgcHJvY2VkdXJl KGcpLCBwb2ludGVyIDo6IGZmCisgICBhbGxvY2F0ZSAoeikKKyAgIHolaSA9 IDQyCisgICB6JWYgPT4gZworICAgZmYgPT4gZworICAgY2FsbCByKHolZikK KyAgIGNhbGwgcyh6JWYpICEgeyBkZy1lcnJvciAiSW50ZXJmYWNlIG1pc21h dGNoIGluIGR1bW15IHByb2NlZHVyZSIgfQorICAgY2FsbCBzKGZmKSAgISB7 IGRnLWVycm9yICJJbnRlcmZhY2UgbWlzbWF0Y2ggaW4gZHVtbXkgcHJvY2Vk dXJlIiB9Citjb250YWlucworICAgc3Vicm91dGluZSBnKHgpCisgICAgICBj bGFzcyh0KSA6OiB4CisgICAgICB4JWkgPSA4NAorICAgZW5kCisgICBzdWJy b3V0aW5lIHIoeCkKKyAgICAgIHByb2NlZHVyZShnKSA6OiB4CisgICAgICBw cmludCAqLCAiaW4gciIKKyAgICAgIGFsbG9jYXRlICh5KQorICAgICAgY2Fs bCB4KHkpCisgICAgICBwcmludCAqLCB5JWkKKyAgIGVuZAorICAgc3Vicm91 dGluZSBzKHgpCisgICAgICBjbGFzcygqKSA6OiB4CisgICBlbmQgc3Vicm91 dGluZQorZW5kCg== --0000000000001307670614f47a40--