[patch, fortran] fix for part of PR17423

[Jerry DeLisle]

Will someone please review and commit if OK the attached patch and test 
file.

bootstrapped and reg tested on i686-pc-linux-gnu

This fixes the ICE noted in comment #9 and #7 of PR 17423.

Regards,

Jerry
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr17423.diff
Type: text/x-patch
Size: 2909 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050507/ee83f58a/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: assign_4.f
Type: text/x-fortran
Size: 256 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050507/ee83f58a/attachment-0001.bin>