From patchwork Sun May 21 16:14:37 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janus Weil X-Patchwork-Id: 765139 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 3wW6M00dnkz9s78 for ; Mon, 22 May 2017 02:14:51 +1000 (AEST) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="GFW/AtP9"; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:from:date:message-id:subject:to:content-type; q= dns; s=default; b=OkQhvTjQ9dGvCrvssJP7pzkhtXtEQmDZmwV0tBRRgL8Km0 zHSUb+DqCFtpnmx6Lpsaan5gFeQ835tgZDTB7aNVDvyE8WCTAPiSm/7Ade7W0XdI sX2DgHin/RtTieU+0LC9SQ8MytEcdXNrjfTWXDVkUBf+5vcwTNFbmAb5npwMM= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:from:date:message-id:subject:to:content-type; s= default; bh=4RE79mqDAzsAHXasiEqB4AIxTPs=; b=GFW/AtP96gcr7HpkpJxr VdJXQqd8+iUp/JW6AxoSXuvFBo9QqsPORxgjVtX70URzHpxqA+qB1a1bxr3jIOTe ELQA8lB9teRHpftYOm3H/nNZ84+F7T4LwzypaFrcy9lmJUSMl3K+0uS5ROitJkKx AHnHSDwtB0j58Y3fYJJ2FnA= Received: (qmail 4457 invoked by alias); 21 May 2017 16:14:40 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 4404 invoked by uid 89); 21 May 2017 16:14:38 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-10.2 required=5.0 tests=AWL, BAYES_00, FREEMAIL_ENVFROM_END_DIGIT, FREEMAIL_FROM, GIT_PATCH_2, GIT_PATCH_3, RCVD_IN_DNSWL_NONE, RCVD_IN_SORBS_SPAM, SPF_PASS autolearn=ham version=3.3.2 spammy=weil, Weil, sk:janus@g, janus@gcc.gnu.org X-Spam-User: qpsmtpd, 2 recipients X-HELO: mail-yw0-f182.google.com Received: from mail-yw0-f182.google.com (HELO mail-yw0-f182.google.com) (209.85.161.182) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sun, 21 May 2017 16:14:36 +0000 Received: by mail-yw0-f182.google.com with SMTP id b68so50931013ywe.3; Sun, 21 May 2017 09:14:39 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:sender:from:date:message-id:subject :to; bh=CBwbuqE7+sgd7qC1UL2FD7aZGllBU21z/wX+XUZSy78=; b=EN3UAGfPsfYyevyD4Lc6H2kYftzhVbp7HC+1Ib8YJFzU4jdse8w2Io3XI2JMphVpoY AZmVjqu4A5xhTV3E1zEHqnzRtoaJl8Fp/CNApwHzP9wle6xQLxVSsTDeMGFYf2Xo+b37 eV7kGY5vAamQFucrQxq6KwEotD56fnMa9HoZF7hSZL+f8f/qyfAo9Pc0hj9eJEL+faB2 w/JblgmFqaJKkFPY1l//1mT2DYLSkLKct9yLMlhKsMym/1UO/VgHfehg+Y7hMDHiMN7L YNoqm8n6+hkqpGQ9CI3feWF5gLQQazggO1FVpmvbaNxKVyl+puEv18B9T5pWr/qH+UJW XojA== X-Gm-Message-State: AODbwcCYK1OXkHayvpKcD7tyGgEKb8tXOZ4xNj6v1SpWvgZTzCpTBghb zAvnpoShjTySvSbqsYRoA1AhAypc1gwN X-Received: by 10.129.92.68 with SMTP id q65mr16386737ywb.235.1495383278125; Sun, 21 May 2017 09:14:38 -0700 (PDT) MIME-Version: 1.0 Received: by 10.129.92.9 with HTTP; Sun, 21 May 2017 09:14:37 -0700 (PDT) From: Janus Weil Date: Sun, 21 May 2017 18:14:37 +0200 Message-ID: Subject: [Patch, Fortran, OOP] PR 80766: [7/8 Regression] ICE with type-bound procedure returning an array To: gfortran , gcc-patches Hi all, the attached patch fixes an ICE-on-valid regression by making sure that the relevant vtype symbol is resolved properly (for further discussion see the PR). The patch regtests cleanly on x86_64-linux-gnu. Ok for trunk and 7-branch? Cheers, Janus 2017-05-21 Janus Weil PR fortran/80766 * resolve.c (resolve_fl_derived): Make sure that vtype symbols are properly resolved. 2017-05-21 Janus Weil PR fortran/80766 * gfortran.dg/typebound_call_28.f90: New test. Index: gcc/fortran/resolve.c =================================================================== --- gcc/fortran/resolve.c (revision 248308) +++ gcc/fortran/resolve.c (working copy) @@ -13832,6 +13832,8 @@ resolve_fl_derived (gfc_symbol *sym) gfc_symbol *vtab = gfc_find_derived_vtab (data->ts.u.derived); gcc_assert (vtab); vptr->ts.u.derived = vtab->ts.u.derived; + if (!resolve_fl_derived0 (vptr->ts.u.derived)) + return false; } }