2004-08-06 Steven G. Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / decl.c

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 94573ac..3a78efc 100644 (file)
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -2699,14 +2699,7 @@ gfc_match_save (void)
       if (m == MATCH_NO)
        goto syntax;
 
-      c = gfc_get_common (n);
-
-      if (c->use_assoc) 
-       {       
-         gfc_error("COMMON block '%s' at %C is already USE associated", n);
-         return MATCH_ERROR;
-       }
-
+      c = gfc_get_common (n, 0);
       c->saved = 1;
 
       gfc_current_ns->seen_save = 1;