diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 09:27:48 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 09:27:48 +0000 |
| commit | 279dc72feede56719335d771f23babe9330096a3 (patch) | |
| tree | ff400275b8d7c6494715874e348b5de2b2f15faa /gcc/fortran/module.c | |
| parent | 744c2d412b76c9b2abc14176d120429d7207ad95 (diff) | |
| download | gcc-279dc72feede56719335d771f23babe9330096a3.tar.gz | |
2009-11-30 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 154750 (or near)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@154757 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 43acd450062..36095a2b722 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -741,8 +741,7 @@ static int number_use_names (const char *name, bool interface) { int i = 0; - const char *c; - c = find_use_name_n (name, &i, interface); + find_use_name_n (name, &i, interface); return i; } @@ -3977,7 +3976,7 @@ load_equiv (void) static void load_derived_extensions (void) { - int symbol, nuse, j; + int symbol, j; gfc_symbol *derived; gfc_symbol *dt; gfc_symtree *st; @@ -4013,7 +4012,6 @@ load_derived_extensions (void) mio_internal_string (module); /* Only use one use name to find the symbol. */ - nuse = number_use_names (name, false); j = 1; p = find_use_name_n (name, &j, false); if (p) |