gcc/fortran/

	* openmp.c (match_oacc_clause_gang): Fix uninitialized variable.
	(gfc_resolve_oacc_declare): Fix comparision.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230725 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e1a27462d118bedcfbeea1420d63307fdf2279f2..b61e7c04b2cd142ee97fa88017c983f9b1dc7339 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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>
 

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index ffdce0b18480b6d5a774c8216af0df052f068ceb..a07cee1a0b94f1a4e798ac8d83c43061428803ad 100644 (file)
--- 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;
     }