* resolve.c (check_host_association): Initialize tail.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d79ea17..7544345 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2009-05-11  Steve Ellcey  <sje@cup.hp.com>
+
+       * resolve.c (check_host_association): Initialize tail.
+
 2009-05-11  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/40089

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 29d4b3a..b7550f5 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -4353,7 +4353,7 @@ check_host_association (gfc_expr *e)
   gfc_symtree *st;
   int n;
   gfc_ref *ref;
-  gfc_actual_arglist *arg, *tail;
+  gfc_actual_arglist *arg, *tail = NULL;
   bool retval = e->expr_type == EXPR_FUNCTION;
 
   /*  If the expression is the result of substitution in