[Patch, fortran] PR27897 - Segfault on error message.

[Paul Thomas]

Andrew

Forgot? me? I did not think that it was necessary :).

Index: gcc/fortran/match.c
===================================================================
*** gcc/fortran/match.c    (revision 114421)
--- gcc/fortran/match.c    (revision 114422)
*************** gfc_match_common (void)
*** 2293,2299 ****
        if (gsym->type != GSYM_UNKNOWN && gsym->type != GSYM_COMMON)
      {
        gfc_error ("Symbol '%s' at %C is already an external symbol that 
is not COMMON",
!              sym->name);
        goto cleanup;
      }
 
--- 2293,2299 ----
        if (gsym->type != GSYM_UNKNOWN && gsym->type != GSYM_COMMON)
      {
        gfc_error ("Symbol '%s' at %C is already an external symbol that 
is not COMMON",
!              name);
        goto cleanup;
      }

Paul