Fortran: Remove unused variable. [PR 96255]

Jerry DeLisle · Jerry DeLisle · commit 0ef98bf33513 · 2025-11-11T13:57:06.000-08:00
PR fortran/96255

gcc/fortran/ChangeLog:

	* resolve.cc (gfc_resolve_forall): Delete outer_sym
diff --git 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;

Original file line number	Diff line number	Diff line change
`@@ -12650,7 +12650,6 @@ gfc_resolve_forall (gfc_code code, gfc_namespace ns, int forall_save)`
`12650`	`12650`	`{`
`12651`	`12651`	`if (fa->shadow)`
`12652`	`12652`	`{`
`12653`		`- gfc_symbol *outer_sym;`
`12654`	`12653`	`gfc_symtree *shadow_st;`
`12655`	`12654`	`const char *shadow_name_str;`
`12656`	`12655`	`char *outer_name;`