diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-15 11:24:46 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-15 11:24:46 +0000 |
| commit | 56fcd3fede0e1c4489a3c108d95fd1ff38dfa1a5 (patch) | |
| tree | f21ec6dd55e434aff16e698b0286153465775d62 /gcc/fortran/module.c | |
| parent | c2ce85c4e04bda844aa35dfdf41e69e585d97b2e (diff) | |
| download | gcc-56fcd3fede0e1c4489a3c108d95fd1ff38dfa1a5.tar.gz | |
2009-07-15 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 149655
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@149682 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 7e6e8ff93c4..f16f8d3f72e 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3432,26 +3432,13 @@ mio_symbol (gfc_symbol *sym) { int intmod = INTMOD_NONE; - gfc_formal_arglist *formal; - mio_lparen (); mio_symbol_attribute (&sym->attr); mio_typespec (&sym->ts); - /* Contained procedures don't have formal namespaces. Instead we output the - procedure namespace. The will contain the formal arguments. */ if (iomode == IO_OUTPUT) - { - formal = sym->formal; - while (formal && !formal->sym) - formal = formal->next; - - if (formal) - mio_namespace_ref (&formal->sym->ns); - else - mio_namespace_ref (&sym->formal_ns); - } + mio_namespace_ref (&sym->formal_ns); else { mio_namespace_ref (&sym->formal_ns); |