* resolve.c (check_host_association): Initialize tail.

From-SVN: r147381

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d79ea175dec5bf491c8c77418e0dd55c09cb9806..7544345b35628790c067d23e88bde35ddb90f0f1 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 29d4b3aa207741a53b2cf385d3d3e89d614a90df..b7550f5780ee3f5b613c8f5724a45a43cfb39bd3 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