From patchwork Thu Jul 14 17:47:18 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 648521 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 3rr37v1xGtz9s9Z for ; Fri, 15 Jul 2016 03:47:55 +1000 (AEST) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=JWValX9z; 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:to:cc :from:subject:message-id:date:mime-version:content-type; q=dns; s=default; b=G+ruTHHhLPNxv501k1xPFhuKnsHXlTEYPRzO0TS3JIe0fN0yXY wkbM2uOUnCfZQxuKTZs5iLhw1YfDZL/w72zNjnd2xXHf6KKHxJ4Bdz11X9t/0AMz OIvNtmtQGmQItzy4Scw+9Cs9leeapuEC8eOFJ7qoIjCwAeEMZUwYdBWIE= 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:to:cc :from:subject:message-id:date:mime-version:content-type; s= default; bh=/FdRqOP5q3ClfOlN0KAq0x2cHCw=; b=JWValX9zDHv0X6Wr8LNW ChEkbqyeoDDmFqLDfIgPgUnXpqY4DRzZwNhm/tJURusC8uDSGTC6U/b6jA54dQDN n2GkFkvVcaNHdA8vK3mzvep4H5maLoUALSI8HQ6WP21BjLh8I3lD1W3kw45gycAD rJ9qfAMrbmqXHlZHHnZK0Os= Received: (qmail 111349 invoked by alias); 14 Jul 2016 17:47:35 -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 111236 invoked by uid 89); 14 Jul 2016 17:47:34 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.6 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 spammy=Hx-languages-length:1403, H*MI:charter, kindly X-Spam-User: qpsmtpd, 2 recipients X-HELO: mtaout006-public.msg.strl.va.charter.net Received: from mtaout006-public.msg.strl.va.charter.net (HELO mtaout006-public.msg.strl.va.charter.net) (68.114.190.31) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 14 Jul 2016 17:47:21 +0000 Received: from impout003 ([68.114.189.18]) by mtaout006.msg.strl.va.charter.net (InterMail vM.9.00.023.01 201-2473-194) with ESMTP id <20160714174720.QZZR3572.mtaout006.msg.strl.va.charter.net@impout003>; Thu, 14 Jul 2016 12:47:20 -0500 Received: from quattro.localdomain ([96.41.215.23]) by impout003 with charter.net id JhnK1t0060Wrkg001hnKgB; Thu, 14 Jul 2016 12:47:20 -0500 X-Authority-Analysis: v=2.1 cv=A8LiPsmG c=1 sm=1 tr=0 a=salB9WdMPIDduBH7JsZfrA==:117 a=salB9WdMPIDduBH7JsZfrA==:17 a=L9H7d07YOLsA:10 a=9cW_t1CCXrUA:10 a=s5jvgZ67dGcA:10 a=r77TgQKjGQsHNAKrUKIA:9 a=mDV3o1hIAAAA:8 a=pGLkceISAAAA:8 a=G2uT4ZqAiMnctlC06oUA:9 a=QEXdDO2ut3YA:10 a=-sqphXLdCrY1eT7cle4A:9 a=_FVE-zBwftR9WsbkzFJk:22 a=6kGIvZw6iX1k4Y-7sg4_:22 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 To: gfortran Cc: gcc patches From: Jerry DeLisle Subject: [patch, fortran] Message-ID: <00d16e42-f56d-992a-1a92-da85660c9cd7@charter.net> Date: Thu, 14 Jul 2016 10:47:18 -0700 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.0 MIME-Version: 1.0 This simple patch kindly provided by Marco solves the problem. Regression tested on x86_64-Linux, Test case provided also. OK to commit to trunk? Jerry 2016-07-14 Jerry DeLisle Marco Restelli PR fortran/62125 * symbol.c (select_type_insert_tmp): Recursively call self to take care of nested select type. diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 0ee7dec..c967f25 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2930,7 +2930,11 @@ select_type_insert_tmp (gfc_symtree **st) gfc_select_type_stack *stack = select_type_stack; for (; stack; stack = stack->prev) if ((*st)->n.sym == stack->selector && stack->tmp) - *st = stack->tmp; + { + *st = stack->tmp; + select_type_insert_tmp (st); + return; + } }