From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-patches-return-414906-listarch-gcc-patches=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 39701 invoked by alias); 22 Nov 2015 19:27:31 -0000
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-patches.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
Received: (qmail 39677 invoked by uid 89); 22 Nov 2015 19:27:30 -0000
Authentication-Results: sourceware.org; auth=none
X-Virus-Found: No
X-Spam-SWARE-Status: No, score=-0.7 required=5.0 tests=AWL,BAYES_50,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2
X-Spam-User: qpsmtpd, 2 recipients
X-HELO: relay1.mentorg.com
Received: from relay1.mentorg.com (HELO relay1.mentorg.com) (192.94.38.131) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sun, 22 Nov 2015 19:27:29 +0000
Received: from svr-orw-fem-03.mgc.mentorg.com ([147.34.97.39])	by relay1.mentorg.com with esmtp 	id 1a0aIH-0006qB-JN from James_Norris@mentor.com ; Sun, 22 Nov 2015 11:27:25 -0800
Received: from [172.30.41.197] (147.34.91.1) by svr-orw-fem-03.mgc.mentorg.com (147.34.97.39) with Microsoft SMTP Server id 14.3.224.2; Sun, 22 Nov 2015 11:27:25 -0800
Message-ID: <5652171C.1030804@codesourcery.com>
Date: Sun, 22 Nov 2015 20:38:00 -0000
From: James Norris <jnorris@codesourcery.com>
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Thunderbird/31.7.0
MIME-Version: 1.0
To: Steve Kargl <sgk@troutmask.apl.washington.edu>, <fortran@gcc.gnu.org>,	<gcc-patches@gcc.gnu.org>
Subject: Re: [PATCH] fortran/openmp.c -- Fix bootstrap
References: <20151122185949.GA53877@troutmask.apl.washington.edu>
In-Reply-To: <20151122185949.GA53877@troutmask.apl.washington.edu>
X-TagToolbar-Keys: D20151122132724063
Content-Type: text/plain; charset="windows-1252"; format=flowed
Content-Transfer-Encoding: 7bit
X-SW-Source: 2015-11/txt/msg02622.txt.bz2

Hi,

Patch committed to trunk as obvious. Thanks to Dominique and Steve.

Jim
====

On 11/22/2015 12:59 PM, Steve Kargl wrote:
> I have no idea if this is actually correct, but it restores bootstrap.
> OK to commit?
>
> 2015-11-22  Steven G. Kargl  <kargl@gcc.gnu.org>
>
> 	* openmp.c (match_oacc_clause_gang): Fix bootstrap.
>
>
> Index: openmp.c
> ===================================================================
> --- openmp.c	(revision 230723)
> +++ openmp.c	(working copy)
> @@ -415,7 +415,8 @@ match_oacc_clause_gang (gfc_omp_clauses
>   static match
>   gfc_match_oacc_clause_link (const char *str, gfc_omp_namelist **list)
>   {
> -  gfc_omp_namelist *head, *tail, *p;
> +  gfc_omp_namelist *head = NULL;
> +  gfc_omp_namelist *tail, *p;
>     locus old_loc;
>     char n[GFC_MAX_SYMBOL_LEN+1];
>     gfc_symbol *sym;
> @@ -4821,7 +4822,7 @@ gfc_resolve_oacc_declare (gfc_namespace
>
>     for (oc = ns->oacc_declare; oc; oc = oc->next)
>       {
> -      for (list = 0; list <= OMP_LIST_NUM; list++)
> +      for (list = 0; list < OMP_LIST_NUM; list++)
>   	for (n = oc->clauses->lists[list]; n; n = n->next)
>   	  {
>   	    n->sym->mark = 0;
> @@ -4846,7 +4847,7 @@ gfc_resolve_oacc_declare (gfc_namespace
>
>     for (oc = ns->oacc_declare; oc; oc = oc->next)
>       {
> -      for (list = 0; list <= OMP_LIST_NUM; list++)
> +      for (list = 0; list < OMP_LIST_NUM; list++)
>   	for (n = oc->clauses->lists[list]; n; n = n->next)
>   	  {
>   	    if (n->sym->mark)
> @@ -4862,7 +4863,7 @@ gfc_resolve_oacc_declare (gfc_namespace
>
>     for (oc = ns->oacc_declare; oc; oc = oc->next)
>       {
> -      for (list = 0; list <= OMP_LIST_NUM; list++)
> +      for (list = 0; list < OMP_LIST_NUM; list++)
>   	for (n = oc->clauses->lists[list]; n; n = n->next)
>   	  n->sym->mark = 0;
>       }
>