diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/openmp.c | 9 |
2 files changed, 11 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e1a2746..b61e7c0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,10 @@ 2015-11-22 James Norris <jnorris@codesourcery.com> + Steven G. Kargl <kargl@gcc.gnu.org> + + * openmp.c (match_oacc_clause_gang): Fix uninitialized variable. + (gfc_resolve_oacc_declare): Fix comparision. + +2015-11-22 James Norris <jnorris@codesourcery.com> Cesar Philippidis <cesar@codesourcery.com> * dump-parse-tree.c (show_namespace): Handle declares. diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index ffdce0b1..a07cee1 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -415,7 +415,8 @@ match_oacc_clause_gang (gfc_omp_clauses *cp) 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 *ns) 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 *ns) 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 *ns) 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; } |