1C PR debug/43166
2C { dg-do compile }
3C { dg-options "-O" }
4      SUBROUTINE FOO ()
5      INTEGER V1
6      COMMON // V1
7      END
8      SUBROUTINE BAR ()
9      INTEGER V0,V1,V2,V3
10      COMMON // V1(4),V2(85,4),V3
11      DO V3=1,V1(1)
12      V0=V2(V3,1)
13      END DO
14      END
15