Patch Detail
get:
Show a patch.
patch:
Update a patch.
put:
Update a patch.
GET /api/patches/2215622/?format=api
{ "id": 2215622, "url": "http://patchwork.ozlabs.org/api/patches/2215622/?format=api", "web_url": "http://patchwork.ozlabs.org/project/gcc/patch/6e4141b7-da01-44cb-859e-4bdfab15d99e@gmx.de/", "project": { "id": 17, "url": "http://patchwork.ozlabs.org/api/projects/17/?format=api", "name": "GNU Compiler Collection", "link_name": "gcc", "list_id": "gcc-patches.gcc.gnu.org", "list_email": "gcc-patches@gcc.gnu.org", "web_url": null, "scm_url": null, "webscm_url": null, "list_archive_url": "", "list_archive_url_format": "", "commit_url_format": "" }, "msgid": "<6e4141b7-da01-44cb-859e-4bdfab15d99e@gmx.de>", "list_archive_url": null, "date": "2026-03-24T21:16:14", "name": "Fortran: fix rank/shape check in interface checking [PR124567]", "commit_ref": null, "pull_url": null, "state": "new", "archived": false, "hash": "93373a74434d80249f93bfa50603648c55a7369b", "submitter": { "id": 21263, "url": "http://patchwork.ozlabs.org/api/people/21263/?format=api", "name": "Harald Anlauf", "email": "anlauf@gmx.de" }, "delegate": null, "mbox": "http://patchwork.ozlabs.org/project/gcc/patch/6e4141b7-da01-44cb-859e-4bdfab15d99e@gmx.de/mbox/", "series": [ { "id": 497348, "url": "http://patchwork.ozlabs.org/api/series/497348/?format=api", "web_url": "http://patchwork.ozlabs.org/project/gcc/list/?series=497348", "date": "2026-03-24T21:16:14", "name": "Fortran: fix rank/shape check in interface checking [PR124567]", "version": 1, "mbox": "http://patchwork.ozlabs.org/series/497348/mbox/" } ], "comments": "http://patchwork.ozlabs.org/api/patches/2215622/comments/", "check": "pending", "checks": "http://patchwork.ozlabs.org/api/patches/2215622/checks/", "tags": {}, "related": [], "headers": { "Return-Path": "<gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org>", "X-Original-To": [ "incoming@patchwork.ozlabs.org", "gcc-patches@gcc.gnu.org" ], "Delivered-To": [ "patchwork-incoming@legolas.ozlabs.org", "gcc-patches@gcc.gnu.org" ], "Authentication-Results": [ "legolas.ozlabs.org;\n\tdkim=pass (2048-bit key;\n secure) header.d=gmx.de header.i=anlauf@gmx.de header.a=rsa-sha256\n header.s=s31663417 header.b=cThe6Y/7;\n\tdkim-atps=neutral", "legolas.ozlabs.org;\n spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org\n (client-ip=2620:52:6:3111::32; helo=vm01.sourceware.org;\n envelope-from=gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org;\n receiver=patchwork.ozlabs.org)", "sourceware.org;\n\tdkim=pass (2048-bit key,\n secure) header.d=gmx.de header.i=anlauf@gmx.de header.a=rsa-sha256\n header.s=s31663417 header.b=cThe6Y/7", "sourceware.org;\n dmarc=pass (p=quarantine dis=none) header.from=gmx.de", "sourceware.org; spf=pass smtp.mailfrom=gmx.de", "server2.sourceware.org;\n arc=none smtp.remote-ip=212.227.15.19" ], "Received": [ "from vm01.sourceware.org (vm01.sourceware.org\n [IPv6:2620:52:6:3111::32])\n\t(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)\n\t key-exchange x25519 server-signature ECDSA (secp384r1) server-digest SHA384)\n\t(No client certificate requested)\n\tby legolas.ozlabs.org (Postfix) with ESMTPS id 4fgNC92FYWz1y1G\n\tfor <incoming@patchwork.ozlabs.org>; Wed, 25 Mar 2026 08:16:53 +1100 (AEDT)", "from vm01.sourceware.org (localhost [127.0.0.1])\n\tby sourceware.org (Postfix) with ESMTP id 2229F4BB5895\n\tfor <incoming@patchwork.ozlabs.org>; Tue, 24 Mar 2026 21:16:51 +0000 (GMT)", "from mout.gmx.net (mout.gmx.net [212.227.15.19])\n by sourceware.org (Postfix) with ESMTPS id A43B34BB5886;\n Tue, 24 Mar 2026 21:16:16 +0000 (GMT)", "from client.hidden.invalid by mail.gmx.net (mrgmx004\n [212.227.17.190]) with ESMTPSA (Nemesis) id 1MVvPD-1vxc5K0kVh-00YVqF; Tue, 24\n Mar 2026 22:16:15 +0100" ], "DKIM-Filter": [ "OpenDKIM Filter v2.11.0 sourceware.org 2229F4BB5895", "OpenDKIM Filter v2.11.0 sourceware.org A43B34BB5886" ], "DMARC-Filter": "OpenDMARC Filter v1.4.2 sourceware.org A43B34BB5886", "ARC-Filter": "OpenARC Filter v1.0.0 sourceware.org A43B34BB5886", "ARC-Seal": "i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1774386977; cv=none;\n b=ughHX6FYXvU/yotrBHgaWYlarUHPS3OJd5u+M7iv2Fw40T462gsSdNICKb2Pz0QvkZi+xjOGOtnW/BtaqQ0Kxis1KeVCoX2xgkGb50ywq6vXzuuyhy/SD2IKFtkBQ71iZmjQ4emB6AMJbXdFMY8SXWQvbTn8fw7z/iLuNNYwWgg=", "ARC-Message-Signature": "i=1; a=rsa-sha256; d=sourceware.org; s=key;\n t=1774386977; c=relaxed/simple;\n bh=eRbLaLP8RQH0U83Hwq9lrPGaItLcBeeqZbnu6HZrzwo=;\n h=DKIM-Signature:Message-ID:Date:MIME-Version:From:Subject;\n b=B3uY7PbpNc/u30QqkwjNfo9/6HXeSRxqixkNvNLZOmCc2X4ZSYhiU0w49ubyIMnXqtS2FH2rxOOsyRnJUqBGNj6l/E3e2OyNcTUnDj70+QzJo8BEUotyUv5b4k9s7WraCQFuRYQGyat6YlN5gp8/cR9qOpLO1UloG/ZZO/JiZIY=", "ARC-Authentication-Results": "i=1; server2.sourceware.org", "DKIM-Signature": "v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmx.de;\n s=s31663417; t=1774386975; x=1774991775; i=anlauf@gmx.de;\n bh=mLRvA6T2ewEjRDPswAo97n8hCKorORM1LuiDwP8cN3M=;\n h=X-UI-Sender-Class:Content-Type:Message-ID:Date:MIME-Version:Cc:\n From:Subject:cc:content-transfer-encoding:content-type:date:from:\n message-id:mime-version:reply-to:subject:to;\n b=cThe6Y/7OSm8gnUYSnNccQV2VhePYq+puxkYLqrJCdPV++t1ZEY+xhnilcUcNbVG\n cTli/9JO2PyAjWkP2e0ChlDbX8UaBS5de96G+TruKZULKpXaMPCz91CqNonyhENBF\n VpHLlmh1dVaOwb2z1uE3BP0TvB5WRK5elNPoEBLLdO0kOTppqqK4GIh13fMTYnpCS\n xN6e/sCOrR5OrvReZslH6EyX9M2aHeTnyuATyZhiLjcyCmHCh5n6yicX5UrXfRaDb\n kO79MlvnKjMb04rY7b8QAi/gmIaW/79w/IJVYwRksW6IVj2tiiZjtgaSRwBP2i2u8\n jQBW1X/JxF1uDHLOMw==", "X-UI-Sender-Class": "724b4f7f-cbec-4199-ad4e-598c01a50d3a", "Content-Type": "multipart/mixed; boundary=\"------------YE2wkTmUacYftuc3cOqP7qGw\"", "Message-ID": "<6e4141b7-da01-44cb-859e-4bdfab15d99e@gmx.de>", "Date": "Tue, 24 Mar 2026 22:16:14 +0100", "MIME-Version": "1.0", "User-Agent": "Mozilla Thunderbird", "Newsgroups": "gmane.comp.gcc.fortran,gmane.comp.gcc.patches", "Content-Language": "en-US", "Cc": "fortran <fortran@gcc.gnu.org>, gcc-patches <gcc-patches@gcc.gnu.org>", "From": "Harald Anlauf <anlauf@gmx.de>", "Subject": "[PATCH] Fortran: fix rank/shape check in interface checking\n [PR124567]", "X-Provags-ID": "V03:K1:biRFnBGRM60lsp+wvtS/jWsu/LBU5ZvwpZmzXYJP21MoHFvlIqe\n PHI71x7il6PltMFsr9CkIZljr3yFKdSDKOQuZvnwgqFwRUh9KZOTsA0hfoYUZNLoL5O1VW1\n 8t/ZGzfSt0D10lPmNAOn4On4PShJOTnX4YNl3+6ecdrC6stQs3PXqDYKXoDaLKZE5IbbGnW\n PVG+ypN4bVaZKVKXk6EzQ==", "UI-OutboundReport": "notjunk:1;M01:P0:UTeKqnDXWXQ=;mJei2+ZjXaltJW6K+SJCSMRtWef\n 2zgGLyU+0h9Qvjo3wWeC1AKKcgFWXqV2czEpmmvo1WlpTe5xds3y4UcAsy31TMuZcwDNBqtm1\n t40ReS2UTv+gplVbMNTAvUWFFpXSZZsia2VEZS789xfO187yMX+1101CyncWQGl4QiI2+ZJ+k\n MI2nSsMAL4eFWWXCwbcdrLKrFjMXFVStzOliw5gQoL9v7oZnzZKkfFUHzFZW8/QO+9vP5xaSu\n RrdLGvpvx/+lF5wQ408M9SM2dA8KD2UcKcGGC4ZaBRwAgLlpwecq+utuxQfdMgoE3yhFj70PJ\n C+lENcP7Ug1Sksk7rWESxoaO+aV07KT1pyziSQApwspdgoqbjt0hOs7+99WfI43JRu4bA/syr\n 8P+PsGrBeA4Oi2tMp7yyt9qZ+wI8GGxLiA/3upKy2SoXzMouXoaXaZFrOtjQxuhGV5LBbdtnW\n 2Zh4mziWl5/aaNkewhZJlYvRO2sZCnzsOAy8LRHnW2Mq4p0PeMmjoAtEYgjDcyxCWHNrtTna1\n dVzK212r+DyPyQcYoUcLEpYWJIhzzSWbMMw1LLqj2Lrwg+wwFHAI4J1RW8AH29J/hYF6/LvEf\n V27YfgFY/hWL4jKRl/F0YO2p18U11cniByPFnAg2wBBnZaqHdIJdLKp5ln0Ep1jonZ+exSubl\n YA0VCsrVwtrK/Stq/KHOafF+isocKsnRWwgZW81NjCnxFU1HmjQf9leM7CrL1lzb5FrzzmswE\n YyF2L+W/wPsozDwZSvHqCz68e3AxrdEiKegzTh9sYNNGD8UCljLi14oJs0ZDU9vwgXVBWDGaP\n kgZD+EK79HPHrDan8eYx7UDSvzpqLhL1W79RkXQLPhaZktg0xcptdUaHBwmxW+FDMVgYmkloF\n +VVZbg8u+yfDx+HREj8n6F7Eb3O2+EiCfvq3wnXtfGtnaZN8M+KegIFrx9JMmWhknbCwhMaIp\n WC5kMeV6XTf1bwNEswxc0WENjNaBsbJhVVY2GqM2dxOokY5YZjMwBFaIlFyZ8JPxLmrSfw5+b\n b8Ha4mjMBabrWl4d4OadGqi6AkIFoRkkBfbRTnBvp8+FP9mbUgRL9ApDFqoilEoEYnkXZ6PHP\n 32h3hitp2ZwGzShzK2tpMQ+7RGX6sSLshYxOEfdtloyVuZc8u9JY6qg6neYV/mfoVEmkh2+6X\n 1ZufyQG2Mm4SzVJVk9krbuOw8PKlGs6k6zVqey17Oj+lj1Cqvg8/tZ33nGi/FILAwrM6f8g/H\n ZXgTT1V4u5nYj2hbsq7qJIJUIXXoHHZV9wZjQcbao8Kb78K96rNWes9Fvt8E/qXHUMNGKQ4kF\n Mv37gakzukAOZG84jJzhniMSzDqRJjrEfLxpMqF1F48kIIRrdnA+bGKZWEnSDq0WwQBmH+kO4\n u9rIsMNT74Xbakmuddd0ZLfDsgO2mfaKCwJQx59TqyL9G15NGBf+Du7fea/Y16R/lUwzl9yUB\n BphtJmRwPe2Ad3dPeSWybnympwCbNNgQ/K76K6qRw0ZbEbTpnqz24wqNyViz4p3wZpG9MwF0E\n FVeV9XE6AN5f9P0JOzTcSPMhXpDjC3vMYrH+8s8xmBU6QiWiZWPkIrEADQ/eAR1qwj1ZQaG+0\n bQfCHclFM9PGPtUf8KCaR66RR16ZYX70SkLhaRPVxDw3nuQGmvQluRT37dUGI50QPTjTwhV9o\n j/SC4AIhlrj0zu/5/4i1hg4uEslRhkv7fvJqsUm2jT3XH61t8vwGKSv80RlNSLafRPXPINMUJ\n aCtLscK3ChdVnPSSLAZgkw1LGmhx1QqELbcctUSYLszPnQkquDeac1UsmwlBNjVieRmo9eYqH\n dYcfLfS75mnIkLj0jGaVpKjxewcyVhINAZ3ex0C0KHy4Ecuo46c+kxwEANhwPwln0snyssLhf\n 5A7kQpxktybUPDOTrgyYZF+iL8JnfQ6GQ6oX1uLes7hcc+uBjjsKyVn4rXG9/8CTexZi2vBVz\n 0zICj03HPu7jTICWpYBIYeqskIlpmJmgdid0YdG2EZqH1Wz1XqX/not46gcHt+npfdB5xZ17c\n 4g9FGvYX6F6g3xO4E/gH2hZPLzdvsHhF25vkqQqGfiNxFbzmvEVA7ns6fw77NZcEKXnNuhBZl\n Q5eeqCYBBQ13ZQDMdPP7VGIlIxWk7yzs9UzN/2bMIz1dBjZ/FX8y2+F/TgNWXK0y70KZC9XSt\n 5Ay9joCqc/a8Gd6MnfnYTy7zddq8F6AXlkkhilXiEMH0nsu66NcRypWlcVGN/MqZabatBD+px\n prZb7tiG/DbMjJUwne9JK/VjY877rwaI7v0tEyDowwhGV0P0xgOl67hXoispCdDSSxHMzZd2l\n Nf7NgzckPTNMqPLV/0LOqAQ4CLJAc2B2Wu8KqbKU+JTVKOsLDRaCO3hPRR/Rh7at6eIWc3ybq\n 4OnXQwC3/wtxkbvbA2Nigilp+khR6jh3sN4Epjq2v0jpippMhx9jXfpYYPMZX8apcc5bnY1dt\n TNGMb7Ih99kzoqu8YLKx7dEZilBTPBAHt5eILDXl6dNKOVkkaE9Gd9hffvFf/dsukU2Xs8Xly\n HVTIl76yfd6QsNWe1F0oKl2/ElLdGvWhlrhjaxLHw4pKk0tAoSsrDcTy1LCFNWze7L52pqLMk\n mLVj++JN4pRphi5pLgzny5AbtSJX3MasD2eZKwdLA++J337eLCQvmXVZfjSO+JRYpS/9zb+2T\n A7NViJtQLPnSqwIJTxmg6Xn65uIUxrlRu6vmmqzYaftLlzuvhUcoStLnC7xSv2W7irnmOcoMt\n xceuWVo0Nb40+PBpo2bLjz9e9MX9Bxw91DIUott50LuuXWuysdUgesm8/aIcNdEG4/h1jp1Ye\n lM0gIwGp/aFWB4RX+JloHhx4vSBRrndguPVpmwl51card2vbi9sSXQj26xP42cGCzrzwcAvHk\n BqxIGhDfbN19ct6E/KMngFYNpnXaPCz9T8SeXxopddTMpoy99qUhgozWFhLAomf8J86Uv9BF4\n X15j8MAUxdLUnhCs0ucP48LXMXoAgr6CZGUrgnsnRM53DZFsfQuYf2ji1smpk6YQqwCpE/Tbe\n gRiIan6q8kpr6E276MIWwUrsUDtIx0btiCZAc410pBPepmB2dJS3JBeQNIis4MJx4OK5zlFiU\n u5QKJHbt09GL6RUQtN6qFZFEQcyUQ5Be5MqFwWCZ/Tf4yKnk/SeuYojIfYykODYCa8RLR2L6f\n 0Kh6+qvSGEvRMsD9UUupPsskGwV/obPdi58tlXZ4ThqSTzzCgo5x0K5YEooRG/+q5ynQF7IFM\n llNe1zoN+IdTpQc3F7KTHtwRPCipyXFuYwLemoy7iWSLoyaIriWmWkn2rHUZHXOs895TkWic4\n se3iCjhV9LHleMcuvRxEugcdKmA/fbg5fTt2JqP2BhN0wAxctSnrEcWhlqB+oax/Fl8tFrKeZ\n zL5lfX9/qzL2tGWNq9YPYLnoOKcDOHlUgscoHKdDMdE0XMwKnNaukCtFZ67BFpI/+65aF5DvH\n KQRMsM+NSaDsaR3aby2zTfbjenAUR/D5YpntPRxzpfv3Lvoo1dzcG2O6GCWTs0Jx5/al+DHyj\n X8vrIBQ+2PTWLji/Z0QwOWwZ0jUrqPKS8iDg2WuK85u9nnQ/NECv674qWXUTFf0iIzj9ihy4p\n gSQSCoi5fcrcRoo8tpJSGIRzHZxmgAw704zTEvz4ILX8+alL9Ia+w0D4npR4l2TmF7gobCWvh\n 5mMqp9vGKkSuCUBLaQhMVaEruwLGrecqvgsjZoplkDzP2jd2jqI0vsA9HQWbm4JopplTowTod\n /G3/bd5mOT2MRdkCke2oJx9H7VC1PC4DFRFmv90wbbMOvG3FKJ/F52S969oVPsPM2zVYey7x6\n nKdf2DBmtvPT3Z+4LycSCSKOPp4G9u9ozUekdsk9GyvAZoArrWKHOwdfofKuewg5LDz/gvkqH\n 3VyIZmbwrF5I7hdd2kSBsfLMXnvKoHzrdGzp/XM3j5pGkyodDUubDca0wA6kERxeX49wzfFDK\n zCFwR2oFMn9WxUgNzyfvJ/wHobbFUG0LV+BKrAPorAYLta/UG5rrNXW5Eqepj/vap03wRX5Dd\n SDWVuqd0fueWnSXYkjuEAOgSQIJTJxS4A54jQbWMEWAlkLWLf2gf3i5yR7PRV9muEYFyd+fJ1\n C9FfSk3M74raN3nt696Ttne59MW6UEVad2PgNhAvGZNAiF+/XK4dMb10rFKbdYB3EsLSPzMt3\n OIFyAsW6QPRvxXpBFX5bsnyErCpMGGSIuzGrcKZTVLB86KwDbAHY1TYz582udiIcPhZrkI5pB\n 1RgIS6KiyXnwnY/UTboxJ2LJjSSeQ/7ADUYTfXHhJZUOXXoBqUbyUaPT2KhVt9IE5sa1bYLnD\n pbEK0hzPTk2MXqEgaL4MB4CkRQZYwQfQ9aGf7eHEn4LCUYZCLWUVoM4ps2iSOdNJvxSejCuiE\n 2rigP5KXnbaVT3jMEbWfSixm7UUNK/VqeFlMyYr3LAMGSKiTRipmmJFsn6M+IXf3UeGhWQAxG\n nhCiZsUAWPwT/pvaQAQIrUjQFL97Rz2Pm99Bi/c596y0ckqdsYAuhQTfUZH41g6OfBKLHDikH\n lMe+/s7mwSp8edsxkPrO78K7G0EZIW3NTnRAF2rUnL853KaBTi0DrLL9OvUw/btgS+3zSddBq\n Z5JE7JvN7Nq4IDGgB+F+07lPv8nvxluPJy1XXNlydFCYpXhEnU+HotUTfEe9qj5ZFFMhECB2j\n Cw9mXr1qPw3lBlm073wAo6KihYqw2XQn5JBIvQCVf51rwzFxUXkZqOXluxDDheBTS2fto4I0t\n S8lbYGv/6n/ZbJC0gHAym11f5q4yOvnNWB3sNGE719d9InJVfCwlvV0q0dYPn+QokqqReJ8C+\n 5qS8AuwEBJ4ap2hPQF/eQrCm0URhsI9evqNM6msuTVQ0Gfk+3UdCOyW+eyaDhIHZ5/YXWKgzn\n eJdPEkfStced8g0P8xvfbPuToiznUgawl72hRxbIui69WbEHbbzSfNVK5dN6hzo3dho1Ra5lD\n AEKPkdaK5WaPtRYkxZ//wiuL0xiiFr0S71/lAPZcXogpQunozzZAtdg1C3YQ5uOIoC/ACg17n\n PCPBA7xn7w2UOl0BfZ29tDZqoLkZ1e9orEzDIw7TT3UAHhcCc6RLaquJuRyxyFVY97zW+jXnF\n KZATLhBmR4cuGYoJewuXAEAwgEjz70Bq9WD9/j2MQUZCMCMEDqz/xYIHgxwRPQJYG+eLrpos4\n YY6NYxqQQe5ADPbWkIdRB5p0cHO7XS4Lohdx0gUE9CsIcqP20686s919FSGVUYmYMpq7Jokht\n YuCr3YAgAR8Kbvb7Fmtj9sPNFjKWHd9jc+2Nfx+BXCE7O/3aXvskz5rTlSBF+XrxSgYqgE80r\n /TTCkckwqoBoiLf/odQQdEF/kCRDX88JCjOIrk14C78mhlUNiWULfSxoH/aspQrPiNiO9uqSI\n ll002N4vknYPl4t5QLZ4gWTfOBLI2txfUlD8FdDur7slwOYXhFAdKMJ5Yc5+o7Wq0w", "X-BeenThere": "gcc-patches@gcc.gnu.org", "X-Mailman-Version": "2.1.30", "Precedence": "list", "List-Id": "Gcc-patches mailing list <gcc-patches.gcc.gnu.org>", "List-Unsubscribe": "<https://gcc.gnu.org/mailman/options/gcc-patches>,\n <mailto:gcc-patches-request@gcc.gnu.org?subject=unsubscribe>", "List-Archive": "<https://gcc.gnu.org/pipermail/gcc-patches/>", "List-Post": "<mailto:gcc-patches@gcc.gnu.org>", "List-Help": "<mailto:gcc-patches-request@gcc.gnu.org?subject=help>", "List-Subscribe": "<https://gcc.gnu.org/mailman/listinfo/gcc-patches>,\n <mailto:gcc-patches-request@gcc.gnu.org?subject=subscribe>", "Errors-To": "gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org" }, "content": "Dear all,\n\nthe attached patch fixes the issue reported by Salvatore Filippone.\n\nAs Tobias already explained, we have the situation that resolution\ndoes not always resolve the ambiguity between deferred shape and\nassumed shape. The attached patch solves this by splitting the\nshape check into one for rank (to catch true deferred shape cases)\nand shape, the latter making an exception for the described situation.\n\nRegtested on x86_64-pc-linux-gnu. OK for mainline?\n\nThanks,\nHarald", "diff": "From 11ca9550e60b2da71479157fa8a3e66868050c1b Mon Sep 17 00:00:00 2001\nFrom: Harald Anlauf <anlauf@gmx.de>\nDate: Tue, 24 Mar 2026 22:04:29 +0100\nSubject: [PATCH] Fortran: fix rank/shape check in interface checking\n [PR124567]\n\n\tPR fortran/124567\n\ngcc/fortran/ChangeLog:\n\n\t* interface.cc (gfc_check_dummy_characteristics): Split shape check\n\tinto a separate check for rank and a check for shape, taking into\n\taccount a corner case where the ambiguity between deferred shape\n\tand assumed shape has not been fully resolved at the time of\n\tchecking.\n\ngcc/testsuite/ChangeLog:\n\n\t* gfortran.dg/pr124567.f90: New test.\n---\n gcc/fortran/interface.cc | 11 ++++-\n gcc/testsuite/gfortran.dg/pr124567.f90 | 62 ++++++++++++++++++++++++++\n 2 files changed, 72 insertions(+), 1 deletion(-)\n create mode 100644 gcc/testsuite/gfortran.dg/pr124567.f90\n\ndiff --git a/gcc/fortran/interface.cc b/gcc/fortran/interface.cc\nindex d29cb3a3b82..8a19c14aa78 100644\n--- a/gcc/fortran/interface.cc\n+++ b/gcc/fortran/interface.cc\n@@ -1554,6 +1554,13 @@ gfc_check_dummy_characteristics (gfc_symbol *s1, gfc_symbol *s2,\n int i, compval;\n gfc_expr *shape1, *shape2;\n \n+ if (s1->as->rank != s2->as->rank)\n+\t{\n+\t snprintf (errmsg, err_len, \"Rank mismatch in argument '%s' (%i/%i)\",\n+\t\t s1->name, s1->as->rank, s2->as->rank);\n+\t return false;\n+\t}\n+\n /* Sometimes the ambiguity between deferred shape and assumed shape\n \t does not get resolved in module procedures, where the only explicit\n \t declaration of the dummy is in the interface. */\n@@ -1567,7 +1574,9 @@ gfc_check_dummy_characteristics (gfc_symbol *s1, gfc_symbol *s2,\n \t s2->as->lower[i] = gfc_copy_expr (s1->as->lower[i]);\n \t}\n \n- if (s1->as->type != s2->as->type)\n+ if (s1->as->type != s2->as->type\n+\t && !(s1->as->type == AS_DEFERRED\n+\t && s2->as->type == AS_ASSUMED_SHAPE))\n \t{\n \t snprintf (errmsg, err_len, \"Shape mismatch in argument '%s'\",\n \t\t s1->name);\ndiff --git a/gcc/testsuite/gfortran.dg/pr124567.f90 b/gcc/testsuite/gfortran.dg/pr124567.f90\nnew file mode 100644\nindex 00000000000..feb00f22214\n--- /dev/null\n+++ b/gcc/testsuite/gfortran.dg/pr124567.f90\n@@ -0,0 +1,62 @@\n+! { dg-do compile }\n+!\n+! PR fortran/124567 - overriding method not resolved correctly\n+!\n+! Contributed by Salvatore Filippone \n+\n+module psb_base_spm_mod\n+ type :: psb_base_spm\n+ end type psb_base_spm\n+end module psb_base_spm_mod\n+\n+module psb_r_base_spm_mod\n+ use psb_base_spm_mod\n+ type, extends(psb_base_spm) :: psb_r_base_spm\n+ contains\n+ procedure, pass(a) :: csgrw => psb_r_base_csgrw\n+ end type psb_r_base_spm\n+\n+ interface\n+ subroutine psb_r_base_csgrw(a,iren)\n+ import\n+ class(psb_r_base_spm), intent(in) :: a\n+ integer, intent(in), optional :: iren(:)\n+ end subroutine psb_r_base_csgrw\n+ end interface\n+end module psb_r_base_spm_mod\n+\n+module psb_d_mf_mat_mod\n+ use psb_r_base_spm_mod\n+ type, extends(psb_r_base_spm) :: psb_d_mf_spm\n+ procedure(d_mf_mv), pass(a), pointer :: var_csmv => null()\n+ contains\n+ procedure, pass(a) :: csgrw => psb_d_mf_csgrw\n+ procedure, pass(a) :: set_csmv => d_mf_set_csmv\n+ end type psb_d_mf_spm\n+\n+ interface\n+ subroutine d_mf_mv(a,x,info)\n+ import :: psb_d_mf_spm\n+ class(psb_d_mf_spm), intent(in) :: a\n+ real, intent(in) :: x(:)\n+ integer, intent(out) :: info\n+ end subroutine d_mf_mv\n+ end interface\n+\n+ interface\n+ subroutine psb_d_mf_csgrw(a,iren)\n+ import\n+ class(psb_d_mf_spm), intent(in) :: a\n+ integer, intent(in), optional :: iren(:)\n+ end subroutine psb_d_mf_csgrw\n+ end interface\n+\n+contains\n+ subroutine d_mf_set_csmv(func,a)\n+ implicit none\n+ class(psb_d_mf_spm), intent(inout) :: a\n+ procedure(d_mf_mv) :: func\n+ a%var_csmv => func\n+ return\n+ end subroutine d_mf_set_csmv\n+end module psb_d_mf_mat_mod\n-- \n2.51.0\n\n", "prefixes": [] }