1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index c1e8050..13a40e0 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1855,7 +1855,9 @@ generate_local_decl (gfc_symbol * sym)
           if (warn_unused_parameter)
             warning ("unused parameter `%s'", sym->name);
         }
-      else if (warn_unused_variable)
+      /* warn for unused variables, but not if they're inside a common
+     block.  */
+      else if (warn_unused_variable && !sym->attr.in_common)
         warning ("unused variable `%s'", sym->name);
     }
 }