[Bug debug/46756] -fcompare-debug failure (length) with ASSIGN

[zsojka at seznam dot cz]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46756

--- Comment #1 from Zdenek Sojka <zsojka at seznam dot cz> 2010-12-01 23:11:44 UTC ---
Created attachment 22593
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=22593
another testcase (from pr9258.f)

This one is shorter, but needs -fexpensive-optimizations

$ gcc -O -fexpensive-optimizations -fcompare-debug pr46756-2.f -w
gcc: error: pr46756-2.f: -fcompare-debug failure (length)
$ diff pr46756-2.*gkd
97c97,98
<         (nil)))
---
>         (nil))
>  -> 4)
99c100
< (code_label/s 4 0 0 5 4 ("__label_000020") [3 uses])
---
> (code_label/s 4 0 0 5 4 ("__label_000020") [4 uses])
123c124,125
<         (nil)))
---
>         (nil))
>  -> 2)
125c127
< (code_label/s 2 0 0 8 2 ("__label_000030") [3 uses])
---
> (code_label/s 2 0 0 8 2 ("__label_000030") [4 uses])