re PR fortran/16336 (ICE with common block in module)

PR fortran/16336
* match.c (match_common): Fix error reporting for used common.

From-SVN: r84462

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index deb15661bb0867e74ca0215c6a1d38a7b2a45bd1..c2551f219da6ac8ff7975bf1774212f70a273c5e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -3,6 +3,9 @@
        * expr.c (gfc_check_pointer_assign): Verify that rank of the LHS
        and RHS match. Return early if the RHS is NULL().
 
+       PR fortran/16336
+       * match.c (match_common): Fix error reporting for used common.
+
 2004-07-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        * trans-common.c: Fix whitespace issues, make variable names

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index f8bf2b334d1c3670c91e6509af729151e29f143f..2d85a56cc7d5db5ec7f08d9fe299c71078ee142e 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -2146,7 +2146,7 @@ gfc_match_common (void)
          if (t->use_assoc)
            {
              gfc_error ("COMMON block '%s' at %C has already "
-                        "been USE-associated");
+                        "been USE-associated", name);
              goto cleanup;
            }
        }