From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 53586 invoked by alias); 22 Nov 2015 18:59:53 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 53509 invoked by uid 89); 22 Nov 2015 18:59:52 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.6 required=5.0 tests=AWL,BAYES_00,KAM_LAZY_DOMAIN_SECURITY,RP_MATCHES_RCVD autolearn=no version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: troutmask.apl.washington.edu Received: from troutmask.apl.washington.edu (HELO troutmask.apl.washington.edu) (128.95.76.21) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-GCM-SHA384 encrypted) ESMTPS; Sun, 22 Nov 2015 18:59:52 +0000 Received: from troutmask.apl.washington.edu (localhost [127.0.0.1]) by troutmask.apl.washington.edu (8.15.2/8.15.2) with ESMTPS id tAMIxovJ014340 (version=TLSv1.2 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=NO); Sun, 22 Nov 2015 10:59:50 -0800 (PST) (envelope-from sgk@troutmask.apl.washington.edu) Received: (from sgk@localhost) by troutmask.apl.washington.edu (8.15.2/8.15.2/Submit) id tAMIxnx8014339; Sun, 22 Nov 2015 10:59:49 -0800 (PST) (envelope-from sgk) Date: Sun, 22 Nov 2015 19:11:00 -0000 From: Steve Kargl To: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org Subject: [PATCH] fortran/openmp.c -- Fix bootstrap Message-ID: <20151122185949.GA53877@troutmask.apl.washington.edu> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.24 (2015-08-30) X-SW-Source: 2015-11/txt/msg02619.txt.bz2 I have no idea if this is actually correct, but it restores bootstrap. OK to commit? 2015-11-22 Steven G. Kargl * 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; } -- Steve