From patchwork Mon Jul 4 21:01:46 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 644401 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 3rjzwV0d7Cz9sdb for ; Tue, 5 Jul 2016 07:02:00 +1000 (AEST) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=dS0nDtIe; 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=Ra0gYJEHh1ueftl97qJEjOqgpWKvcLVwQ2IsleID01QV4JgKSS WSR4bxXS20UtOd9cWA87chvM2o1tNo1QoerPdhZP556O60Fid55g+MesN3vRJ/CZ thCiUPdNA3JP0nk2wavHTFiZllBVI51gKkD2k7W7P0U92k6xGAmNu9C2M= 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=mXGtfBmyHo702iNX3CZlJMU8IjE=; b=dS0nDtIeNswzyP4k2i+A 7TIoo+0YZtz6Aqrf7pnMPA7vCqCS2dWwzkbisB0jnJ56a8qJf661zTX5aEB0M1e+ a1hmAcZSgWKWc9HKiviePPkfdGb2ew9SwwMt5oVHwoEl2LCe/1PP/WgJrYsLhLaI f3UzXjV0woPwvPdBkh59fF8= Received: (qmail 92580 invoked by alias); 4 Jul 2016 21:01:52 -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 92551 invoked by uid 89); 4 Jul 2016 21:01:50 -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, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 spammy=attr.flavor, UD:flavor, UD:attr.flavor, attrflavor X-Spam-User: qpsmtpd, 2 recipients X-HELO: mtaout003-public.msg.strl.va.charter.net Received: from mtaout003-public.msg.strl.va.charter.net (HELO mtaout003-public.msg.strl.va.charter.net) (68.114.190.28) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Mon, 04 Jul 2016 21:01:49 +0000 Received: from impout003 ([68.114.189.18]) by mtaout003.msg.strl.va.charter.net (InterMail vM.9.00.023.01 201-2473-194) with ESMTP id <20160704210148.KCCS3572.mtaout003.msg.strl.va.charter.net@impout003>; Mon, 4 Jul 2016 16:01:48 -0500 Received: from amda8.localdomain ([96.41.215.23]) by impout003 with charter.net id El1m1t00K0Wrkg001l1n3P; Mon, 04 Jul 2016 16:01:48 -0500 X-Authority-Analysis: v=2.1 cv=S7tXwecP 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=A-jreNhqm9Q3GBwiBN8A:9 a=QEXdDO2ut3YA:10 a=SF8Nl9aoIvcA:10 a=pCCufzszmZOajd85o28A:9 a=pxQnGYozurvceNIshXwA:9 a=hDU2DQpim5gA:10 a=_FVE-zBwftR9WsbkzFJk:22 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 To: fortran@gcc.gnu.org Cc: gcc-patches@gcc.gnu.org From: Jerry DeLisle Subject: [patch, fortran] Bug 66575 - Endless compilation on missing end interface Message-ID: <35205cc7-f75d-4b0d-23e7-63ef714be0f0@charter.net> Date: Mon, 4 Jul 2016 14:01:46 -0700 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.1.1 MIME-Version: 1.0 This patch and test case regression tested on x86-64. Will commit under simple/obvious rule. Regards, Jerry 2016-07-04 Jerry DeLisle PR fortran/66575 * decl.c (match_procedure_interface): Exit loop if procedure interface refers to itself. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 724f14f7..1b62833f 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5454,7 +5454,8 @@ match_procedure_interface (gfc_symbol **proc_if) /* Resolve interface if possible. That way, attr.procedure is only set if it is declared by a later procedure-declaration-stmt, which is invalid per F08:C1216 (cf. resolve_procedure_interface). */ - while ((*proc_if)->ts.interface) + while ((*proc_if)->ts.interface + && *proc_if != (*proc_if)->ts.interface) *proc_if = (*proc_if)->ts.interface; if ((*proc_if)->attr.flavor == FL_UNKNOWN