diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index aad211a30eca..b1d2ff220bf0 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -12650,7 +12650,6 @@ gfc_resolve_forall (gfc_code *code, gfc_namespace *ns, int forall_save)
 	{
 	  if (fa->shadow)
 	    {
-	      gfc_symbol *outer_sym;
 	      gfc_symtree *shadow_st;
 	      const char *shadow_name_str;
 	      char *outer_name;