[Patch, Fortran] PR fortran/37193: USE m, ONLY: i, j => i

[Daniel Kraft]

Hi,

this is a fix for PR fortran/37193 where a statement as

USE m, ONLY: i, j => i

would only allow j as use-associated name and not i because the
gfc_delete_symtree in module.c:4062 had removed it when j was bound to
i.  The attached patch initializes sym->attr.use_only directly in the
loop there and thus avoids the removal.

No regressions on GNU/Linux-x86-32.  Is this fix ok?  I have to admit I
don't know that part of the code very well so I might well have
overlooked something.

Cheers,
Daniel

-- 
Done:     Arc-Bar-Cav-Sam-Val-Wiz, Dwa-Elf-Gno-Hum-Orc, Law-Neu-Cha, Fem-Mal
To go:    Hea-Kni-Mon-Pri-Ran-Rog-Tou

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: patch.changelog
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080831/e07014ae/attachment.ksh>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: patch.diff
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080831/e07014ae/attachment-0001.ksh>