[fortran, patch] Patch for PR18827

[Feng Wang]

Ping again! 
It seems that all the maintainers and reviewers do not care about it. If you
don't care, I don't care. I just feel sick about the increasing bugs in the
list. Isn't it a policy that all the patchs should be approval? 

I have no write access. In fact, I am very glad to commit the patchs myself.
Can I apply this "privilege", maintainers?

Feng Wang

 --- Feng Wang <wf_cs@yahoo.com> µÄÕýÎÄ£º
> ping.
> 
> Feng Wang
> 
>  --- Feng Wang <wf_cs@yahoo.com> µÄÕýÎÄ£º
> > This patch fix pr18827. Allows variables in a common block to be assigned a
> > label. And do not set symbol's assign attribute when match assigned goto
> > statement and i/o statements using label assigned variable. We should set
> it
> > only when match assign statment. And add checking this attribute when
> > resolving.
> > 
> > But this patch reveals another bug of the backend. The backend will remove
> > the
> > label unless we set !DECL_ARTIFICIAL flag on assigned label, even we set
> > TREE_ADDRESSABLE flag and !DECL_IGNORED_P and FORCED_LABEL flag. After
> > discussion with Steven, we reserve the setting of !DECL_ARTIFICIAL on
> > assigned
> > label to fix pr18827. And after committing this patch, I will file a BE bug
> > reporting.
> > 
> > Tested on i686 with no regression. If it is ok, please commit it.
> > 

_________________________________________________________
Do You Yahoo!?
150ÍòÇúMP3·è¿ñËÑ£¬´øÄú´³ÈëÒôÀÖµîÌÃ
http://music.yisou.com/
ÃÀÅ®Ã÷ÐÇÓ¦Óо¡ÓУ¬ËѱéÃÀͼ¡¢ÑÞͼºÍ¿áͼ
http://image.yisou.com
1G¾ÍÊÇ1000Õ×£¬ÑÅ»¢µçÓÊ×ÔÖúÀ©ÈÝ£¡
http://cn.rd.yahoo.com/mail_cn/tag/1g/*http://cn.mail.yahoo.com/event/mail_1g/