diff options
| author | James Norris <jnorris@codesourcery.com> | 2015-11-22 19:25:29 +0000 |
|---|---|---|
| committer | James Norris <jnorris@gcc.gnu.org> | 2015-11-22 19:25:29 +0000 |
| commit | cc9e07a6bc083d928570b4bd1602017f1b55b381 (patch) | |
| tree | 0a67ebafe157dcd6001a2472c75ce6c212f991df /gcc/fortran/openmp.c | |
| parent | dc7a8b4b7ad10f7c001593605051fcd174540a76 (diff) | |
| download | gcc-cc9e07a6bc083d928570b4bd1602017f1b55b381.zip gcc-cc9e07a6bc083d928570b4bd1602017f1b55b381.tar.gz gcc-cc9e07a6bc083d928570b4bd1602017f1b55b381.tar.bz2 | |
openmp.c (match_oacc_clause_gang): Fix uninitialized variable.
gcc/fortran/
* openmp.c (match_oacc_clause_gang): Fix uninitialized variable.
(gfc_resolve_oacc_declare): Fix comparision.
Co-Authored-By: Steven G. Kargl <kargl@gcc.gnu.org>
From-SVN: r230725
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 9 |
1 files changed, 5 insertions, 4 deletions
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; } |