This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: [PATCH] fortran/openmp.c -- Fix bootstrap

From: James Norris <jnorris at codesourcery dot com>
To: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>, <fortran at gcc dot gnu dot org>, <gcc-patches at gcc dot gnu dot org>
Date: Sun, 22 Nov 2015 13:27:24 -0600
Subject: Re: [PATCH] fortran/openmp.c -- Fix bootstrap
Authentication-results: sourceware.org; auth=none
References: <20151122185949 dot GA53877 at troutmask dot apl dot washington dot edu>

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;
      }

References:
- [PATCH] fortran/openmp.c -- Fix bootstrap
  - From: Steve Kargl

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]